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