irrelevance check half implemented but already impossible to

[helm.git] / helm / software / components / ng_kernel / nCic2OCic.ml

diff --git a/helm/software/components/ng_kernel/nCic2OCic.ml b/helm/software/components/ng_kernel/nCic2OCic.ml
index d9edb1100c7d45340f97a907353decc2fc345c6d..5f8279d7e67cb3660652e392b882a49cc4fa63a7 100644 (file)
--- a/helm/software/components/ng_kernel/nCic2OCic.ml
+++ b/helm/software/components/ng_kernel/nCic2OCic.ml
@@ -37,7 +37,7 @@ let convert_term uri n_fl t =
  | NCic.Sort (NCic.Type u) when
     (* BUG HERE: I should use NCicEnvironment.universe_eq, but I do not
        want to add this recursion between the modules *)
-    (*NCicEnvironment.universe_eq*) u=cprop -> Cic.Sort Cic.CProp 
+    (*NCicEnvironment.universe_eq*) u=cprop -> Cic.Sort (Cic.CProp (CicUniv.fresh ()))
  | NCic.Sort (NCic.Type _) -> Cic.Sort (Cic.Type (CicUniv.fresh ()))
  | NCic.Implicit _ -> assert false
  | NCic.Const (NReference.Ref (u,NReference.Ind (_,i,_))) ->