comparison src/core_util.sig @ 179:3bbed533fbd2

Cases through monoize
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 10:48:36 -0400
parents 3739af9e727a
children 8e9f97508f0d
comparison
equal deleted inserted replaced
178:eb3f9913bf31 179:3bbed533fbd2
128 decl : Core.decl' * 'state -> Core.decl' * 'state} 128 decl : Core.decl' * 'state -> Core.decl' * 'state}
129 -> 'state -> Core.decl -> Core.decl * 'state 129 -> 'state -> Core.decl -> Core.decl * 'state
130 end 130 end
131 131
132 structure File : sig 132 structure File : sig
133 val maxName : Core.file -> int
134
133 datatype binder = datatype Exp.binder 135 datatype binder = datatype Exp.binder
134 136
135 val mapfoldB : {kind : (Core.kind', 'state, 'abort) Search.mapfolder, 137 val mapfoldB : {kind : (Core.kind', 'state, 'abort) Search.mapfolder,
136 con : ('context, Core.con', 'state, 'abort) Search.mapfolderB, 138 con : ('context, Core.con', 'state, 'abort) Search.mapfolderB,
137 exp : ('context, Core.exp', 'state, 'abort) Search.mapfolderB, 139 exp : ('context, Core.exp', 'state, 'abort) Search.mapfolderB,