]> matita.cs.unibo.it Git - helm.git/commitdiff
__n no longer generated.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 5 Feb 2004 14:40:03 +0000 (14:40 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 5 Feb 2004 14:40:03 +0000 (14:40 +0000)
helm/gTopLevel/tests/forall00.cic.test
helm/gTopLevel/tests/lambda03.cic.test

index 8391ea568ff781f990a75c45628dd754b21b03e4..1665098f72b96a166f82ba11821cc2a33b55ef6b 100644 (file)
@@ -2,8 +2,8 @@
 ### (* METASENV after disambiguation  *)
 
 ### (* TERM after disambiguation      *)
-(n:nat)(nat->(eq nat (plus n __1) n))
+(n:nat)(m:nat)(eq nat (plus n m) n)
 ### (* TYPE_OF the disambiguated term *)
 Prop
 ### (* REDUCED disambiguated term     *)
-(n:nat)(nat->(eq nat (plus n __1) n))
+(n:nat)(m:nat)(eq nat (plus n m) n)
index 321dc194b20f1a5559f0ee0ee0c145e3e067e2c8..0234af4926a62f5760aaf14f69f3c79346638c74 100644 (file)
@@ -1,15 +1,15 @@
 \lambda n:nat.
  \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H))
 ### (* METASENV after disambiguation  *)
-n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?26: Type
-n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?27: ?26[n ; H ; _ ; _ ; __1]
+n : nat; H : (eq nat n n); _ :? _; _ :? _; x : nat |- ?26: Type
+n : nat; H : (eq nat n n); _ :? _; _ :? _; x : nat |- ?27: ?26[n ; H ; _ ; _ ; x]
 n : nat; H : (eq nat n n); _ :? _ |- ?8: Type
 n : nat; H : (eq nat n n); _ :? _ |- ?9: ?8[n ; H ; _]
 n : nat; H : (eq nat n n) |- ?5: Type
 n : nat; H : (eq nat n n) |- ?6: ?5[n ; H]
 ### (* TERM after disambiguation      *)
-[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))
+[n:nat][H:(eq nat n n)][g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True)](g [f:(x:nat)((eq nat x x)->(le x O))](f n H))
 ### (* TYPE_OF the disambiguated term *)
-(n:nat)(H:(eq nat n n))(g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True))True
+(n:nat)(H:(eq nat n n))(g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True))True
 ### (* REDUCED disambiguated term     *)
-[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))
+[n:nat][H:(eq nat n n)][g:(((x:nat)((eq nat x x)->(le x O))->(le n O))->True)](g [f:(x:nat)((eq nat x x)->(le x O))](f n H))