hamlet/VIdMap-struct.ss
(module VIdMap-struct (planet chongkai/sml)
  (#%module-begin
   (Program:
    (STRDECTopDec:
     (STRUCTUREStrDec:
      (StrBind:
       (StrId: VIdMap-struct)
       (APPStrExp:
        (FunId: FinMapFn-functor)
        (STRUCTStrExp:
         (SEQStrDec:
          (DECStrDec: (TYPEDec: (TypBind: (TyVarseq:) (TyCon: ord_key-type) (CONTy: (Tyseq:) (LongTyCon: VId.Id-type)))))
          (DECStrDec: (VALDec: (TyVarseq:) (PLAINValBind: (ATPat: (IDAtPat: (LongVId: compare))) (ATExp: (IDAtExp: (LongVId: VId.compare)))))))))))))))