hamlet/FIN_MAP-sig.ss
(module FIN_MAP-sig (planet chongkai/sml)
  (#%module-begin
   (Program:
    (SIGDECTopDec:
     (SigDec:
      (SigBind:
       (SigId: FIN_MAP-sig)
       (SIGSigExp:
        (SEQSpec:
         (INCLUDESpec: (IDSigExp: (SigId: ORD_MAP-sig)))
         (SEQSpec:
          (EXCEPTIONSpec: (ExDesc: (VId: NotFound)))
          (SEQSpec:
           (EXCEPTIONSpec: (ExDesc: (VId: Duplicate)))
           (SEQSpec:
            (VALSpec:
             (ValDesc:
              (VId: fromList)
              (ARROWTy:
               (CONTy:
                (Tyseq: (PARTy: (RECORDTy: (TyRow: (Lab: |1|) (CONTy: (Tyseq:) (LongTyCon: Key.ord_key-type)) (TyRow: (Lab: |2|) (VARTy: (TyVar: |'a|)))))))
                (LongTyCon: list-type))
               (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)))))
            (SEQSpec:
             (VALSpec:
              (ValDesc:
               (VId: delete)
               (ARROWTy:
                (RECORDTy:
                 (TyRow:
                  (Lab: |1|)
                  (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type))
                  (TyRow: (Lab: |2|) (CONTy: (Tyseq:) (LongTyCon: Key.ord_key-type)))))
                (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)))))
             (SEQSpec:
              (VALSpec:
               (ValDesc:
                (VId: difference)
                (ARROWTy:
                 (RECORDTy:
                  (TyRow:
                   (Lab: |1|)
                   (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type))
                   (TyRow: (Lab: |2|) (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)))))
                 (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)))))
              (SEQSpec:
               (VALSpec:
                (ValDesc:
                 (VId: all)
                 (ARROWTy:
                  (PARTy: (ARROWTy: (VARTy: (TyVar: |'a|)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))
                  (ARROWTy: (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))))
               (SEQSpec:
                (VALSpec:
                 (ValDesc:
                  (VId: exists)
                  (ARROWTy:
                   (PARTy: (ARROWTy: (VARTy: (TyVar: |'a|)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))
                   (ARROWTy: (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))))
                (SEQSpec:
                 (VALSpec:
                  (ValDesc:
                   (VId: alli)
                   (ARROWTy:
                    (PARTy:
                     (ARROWTy:
                      (RECORDTy: (TyRow: (Lab: |1|) (CONTy: (Tyseq:) (LongTyCon: Key.ord_key-type)) (TyRow: (Lab: |2|) (VARTy: (TyVar: |'a|)))))
                      (CONTy: (Tyseq:) (LongTyCon: bool-type))))
                    (ARROWTy: (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))))
                 (SEQSpec:
                  (VALSpec:
                   (ValDesc:
                    (VId: existsi)
                    (ARROWTy:
                     (PARTy:
                      (ARROWTy:
                       (RECORDTy: (TyRow: (Lab: |1|) (CONTy: (Tyseq:) (LongTyCon: Key.ord_key-type)) (TyRow: (Lab: |2|) (VARTy: (TyVar: |'a|)))))
                       (CONTy: (Tyseq:) (LongTyCon: bool-type))))
                     (ARROWTy: (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)) (CONTy: (Tyseq:) (LongTyCon: bool-type))))))
                  (VALSpec:
                   (ValDesc:
                    (VId: disjoint)
                    (ARROWTy:
                     (RECORDTy:
                      (TyRow:
                       (Lab: |1|)
                       (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type))
                       (TyRow: (Lab: |2|) (CONTy: (Tyseq: (VARTy: (TyVar: |'a|))) (LongTyCon: map-type)))))
                     (CONTy: (Tyseq:) (LongTyCon: bool-type))))))))))))))))))))))