X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2Fdisambiguate.crit4.ml;h=0a966ba3ad8da7e42576b2093366e3b5e97815cf;hb=ac31c84bb9bcf327554976d4296d787853fc8db5;hp=0f5c3facdafb3acaeca08f4de6be72992ac4997c;hpb=23276845669b6d8191cb4bd24f15fd84c8d851b8;p=helm.git

diff --git a/helm/software/components/cic_disambiguation/disambiguate.crit4.ml b/helm/software/components/cic_disambiguation/disambiguate.crit4.ml
index 0f5c3facd..0a966ba3a 100644
--- a/helm/software/components/cic_disambiguation/disambiguate.crit4.ml
+++ b/helm/software/components/cic_disambiguation/disambiguate.crit4.ml
@@ -110,13 +110,13 @@ type 'a test_result =
 
 let refine_term metasenv context uri term ugraph ~localization_tbl =
 (*   if benchmark then incr actual_refinements; *)
-  assert (uri=None);
+    assert (uri=None);
     debug_print (lazy (sprintf "TEST_INTERPRETATION: %s" (CicPp.ppterm term)));
     try
       let term', _, metasenv',ugraph1 = 
 	CicRefine.type_of_aux' metasenv context term ugraph ~localization_tbl in
         debug_print (lazy (sprintf "OK!!!"));
-	Ok (term', metasenv',ugraph1)
+        Ok (term', metasenv',ugraph1)
     with
      exn ->
       let rec process_exn loc =