prerr_endline (CicPp.ppterm eliminator_type);
prerr_endline (CicPp.ppterm eliminator_body);
*)
-prerr_endline "generato l'eliminatore";
-prerr_endline "inizio type checking";
let (computed_type, ugraph) =
try
CicTypeChecker.type_of_aux' [] [] eliminator_body CicUniv.empty_ugraph
"type checker failure while type checking:\n%s\nerror:\n%s"
(CicPp.ppterm eliminator_body) msg))
in
-prerr_endline "fine type checking";
-prerr_endline "inizio are convertible";
if not (fst (CicReduction.are_convertible []
eliminator_type computed_type ugraph))
then