]> matita.cs.unibo.it Git - helm.git/commitdiff
added some hardcoded universes, needed to typecheck the librarya
authorEnrico Tassi <enrico.tassi@inria.fr>
Fri, 12 Dec 2008 12:11:54 +0000 (12:11 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Fri, 12 Dec 2008 12:11:54 +0000 (12:11 +0000)
helm/software/components/ng_disambiguation/nCicDisambiguate.ml

index a09c085995108286f62dea5db8c6c36706e3140d..0efb49bff54f039f92b3ff1bbef997fe9091777b 100644 (file)
@@ -484,5 +484,16 @@ in
          NCicEnvironment.add_constraint true (mk_type 0) (mk_cprop 1);
          NCicEnvironment.add_constraint false (mk_cprop 0) (mk_type 0);
          NCicEnvironment.add_constraint false (mk_type 0) (mk_cprop 0);
+
+         NCicEnvironment.add_constraint true (mk_type 1) (mk_type 2);
+         NCicEnvironment.add_constraint true (mk_cprop 1) (mk_cprop 2);
+         NCicEnvironment.add_constraint true (mk_cprop 1) (mk_type 2);
+         NCicEnvironment.add_constraint true (mk_type 1) (mk_cprop 2);
+         NCicEnvironment.add_constraint false (mk_cprop 1) (mk_type 1);
+         NCicEnvironment.add_constraint false (mk_type 1) (mk_cprop 1);
+
+         NCicEnvironment.add_constraint false (mk_cprop 2) (mk_type 2);
+         NCicEnvironment.add_constraint false (mk_type 2) (mk_cprop 2);
+
 ;;