BTop is a category.

[helm.git] / helm / software / components / tactics / inversion_principle.ml

diff --git a/helm/software/components/tactics/inversion_principle.ml b/helm/software/components/tactics/inversion_principle.ml
index 45ece4823a95caf0d54d9cf578841830f1962c40..2b6e14b37e28e5ccc3a515ce0f5a1d86c727b685 100644 (file)
--- a/helm/software/components/tactics/inversion_principle.ml
+++ b/helm/software/components/tactics/inversion_principle.ml
@@ -145,7 +145,7 @@ let build_inversion uri obj =
           debug_print 
             (lazy ("theorem prima di refine: " ^ (CicPp.ppterm theorem)));
           let (ref_theorem,_,metasenv,_) = CicRefine.type_of_aux' [] [] theorem  
-            CicUniv.empty_ugraph in
+            CicUniv.oblivion_ugraph in
             (*DEBUG*) debug_print 
             (lazy ("theorem dopo refine: " ^ (CicPp.ppterm ref_theorem)));
             let buri = UriManager.buri_of_uri uri in
@@ -195,7 +195,22 @@ let build_inversion uri obj =
                  Cic.Constant 
                    (UriManager.name_of_uri inversor_uri,Some bo,ty,[],[]))
        with
-          Inversion.EqualityNotDefinedYet -> None
+         Inversion.EqualityNotDefinedYet -> None
+        | CicRefine.RefineFailure ls ->
+           HLog.warn
+            ("CicRefine.RefineFailure during generation of inversion principle: " ^
+             Lazy.force ls) ;
+           None
+        | CicRefine.Uncertain ls ->
+           HLog.warn
+            ("CicRefine.Uncertain during generation of inversion principle: " ^
+             Lazy.force ls) ;
+           None
+        | CicRefine.AssertFailure ls ->
+           HLog.warn
+            ("CicRefine.AssertFailure during generation of inversion principle: " ^
+             Lazy.force ls) ;
+           None
  in
    match obj with
      | Cic.InductiveDefinition (tys,_,nleft,_) ->