\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-exception TypeError of Brg.message
+type message = (BrgReduction.kam, Brg.term) Log.message
val type_of:
- (Brg.term -> Brg.term -> 'a) ->
- Hierarchy.graph -> Brg.context -> Brg.term -> 'a
-
-val si: bool ref
+ (message -> 'a) -> (Brg.term -> Brg.term -> 'a) ->
+ Entity.status -> Hierarchy.graph -> BrgReduction.kam -> Brg.term -> 'a