(* *)
(******************************************************************************)
-type levels_spec = (string * bool * int) list
-
-val levels_of_term : Cic.metasenv -> Cic.context -> Cic.term -> levels_spec
-
-val string_of_levels : levels_spec -> string -> string
+val out_restr: Cic.metasenv -> Cic.context -> Cic.term -> ( ((string * bool) list) list * (string * bool) list)