+ let lll, uuu =(CicUniv.do_rank (get_graph ())) in
+ let lll = List.sort compare lll in
+ List.iter (fun k ->
+ prerr_endline (CicUniv.string_of_universe k ^ " = " ^ string_of_int (CicUniv.get_rank k))) uuu;
+ let _ =
+ try
+ let rec aux = function
+ | a::(b::_ as tl) ->
+ NCicEnvironment.add_constraint true (mk_type a) (mk_type b);
+ NCicEnvironment.add_constraint true (mk_cprop a) (mk_cprop b);
+ NCicEnvironment.add_constraint true (mk_cprop a) (mk_type b);
+ NCicEnvironment.add_constraint true (mk_type a) (mk_cprop b);
+ NCicEnvironment.add_constraint false (mk_cprop a) (mk_type a);
+ NCicEnvironment.add_constraint false (mk_type a) (mk_cprop a);
+ aux tl
+ | [a] ->
+ NCicEnvironment.add_constraint false (mk_type a) (mk_cprop a);
+ NCicEnvironment.add_constraint false (mk_cprop a) (mk_type a);
+ | _ -> ()
+ in
+ aux lll
+ with NCicEnvironment.BadConstraint s as e ->
+ prerr_endline (Lazy.force s); raise e
+ in