Bug fixed: heuristic to detect real URIs used to raise an exception.

[helm.git] / matita / components / grafite_engine / nCicCoercDeclaration.ml

diff --git a/matita/components/grafite_engine/nCicCoercDeclaration.ml b/matita/components/grafite_engine/nCicCoercDeclaration.ml
index 7fcd6a473f4595f70047f2bda5fce0b6867b68bf..3cf07626531c37902cff53640451885386211997 100644 (file)
--- a/matita/components/grafite_engine/nCicCoercDeclaration.ml
+++ b/matita/components/grafite_engine/nCicCoercDeclaration.ml
@@ -311,7 +311,7 @@ let basic_eval_and_record_ncoercion_from_t_cpos_arity
   let status, uris =
    basic_eval_and_record_ncoercion (name,t,src,tgt,cpos,arity) status
   in
-   status,`New uris
+   status,uris
 ;;
 
 let eval_ncoercion status name t ty (id,src) tgt = 
@@ -330,6 +330,6 @@ let eval_ncoercion status name t ty (id,src) tgt =
  let status, uris =
   basic_eval_and_record_ncoercion (name,t,src,tgt,cpos,arity) status
  in
-  status,`New uris
+  status,uris
 ;;