\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-val bag_of_crg: Level.status -> (Bag.term -> 'a) -> Crg.term -> 'a
+val bag_of_crg: Layer.status -> (Bag.term -> 'a) -> Crg.term -> 'a
val crg_of_bag: (Crg.term -> 'a) -> Bag.term -> 'a