]> matita.cs.unibo.it Git - helm.git/commitdiff
The left parameters coming from the constructor types have been refined in a
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 16 Sep 2009 08:32:32 +0000 (08:32 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 16 Sep 2009 08:32:32 +0000 (08:32 +0000)
longer context. Thus we need to unify them in the longer context (that does not
hurt those coming from the inductive types).

helm/software/components/ng_refiner/nCicRefiner.ml

index 56ec069d2c77bb7d30eff3773073908bdc01b6ff..8dc94e9e462f689803c44c346adf18f460a417a8 100644 (file)
@@ -746,7 +746,7 @@ let typeof_obj
                       "and those of its inductive type"))))
                    else
                     metasenv,subst,item1::context
-                ) (metasenv,subst,[]) sx_context_ty_rev sx_context_te_rev
+                ) (metasenv,subst,tys) sx_context_ty_rev sx_context_te_rev
               with Invalid_argument "List.fold_left2" -> assert false in
              let con_sort= NCicTypeChecker.typeof ~subst ~metasenv context te in
               (match