No modification

typing/typer.ml

@@ -1285,8 +1285,11 @@ and branches_aux loc env targ tres constr precise = function
             );
 
         let env' = enter_values (IdMap.get res) env in
-        Format.printf "patt %a@." Patterns.Print.pp (Patterns.descr p);
-        Format.printf "env = %a@." pp_env env';
+         Format.printf "==========================================@.";
+         Format.printf "==========================================@.";
+         Format.printf "==========================================@.";
+         Format.printf "patt%a@." Patterns.Print.pp (Patterns.descr p);
+         Format.printf "env = %a@." pp_env env';
 
         (* Xi_j : a map from term variables in the pattern to type variables *)
         let xj =