X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fautomath%2Fgrundlagen.aut;h=4a856c2454454abafef49c36af35960d94636082;hb=47f4d2af2a592e2e6c0e0ea5f90ffae2fbf6391a;hp=af671cfb374d1773c4daa5bfe4186e41e302cdc4;hpb=9b4286fdc2d88b0d8018e5718ef055804f5cf7ac;p=helm.git

diff --git a/helm/software/lambda-delta/automath/grundlagen.aut b/helm/software/lambda-delta/automath/grundlagen.aut
index af671cfb3..4a856c245 100644
--- a/helm/software/lambda-delta/automath/grundlagen.aut
+++ b/helm/software/lambda-delta/automath/grundlagen.aut
@@ -1,3 +1,8 @@
+# Landau's "Grundlagen der Analysis", formal specification in AUTOMATH
+# Copyright (C) 1977, L.S. van Benthem Jutting
+#               1992, revised by F. Wiedijk (http://www.cs.ru.nl/~freek/aut/)
+#               2008, revised by F. Guidi to remove the eta-reductions
+
 +l
 @[a:'prop'][b:'prop']
 imp:=[x:a]b:'prop'
@@ -220,7 +225,10 @@ i@[o:orec(c,a)]
 thorec2:=oreci(c,b,thor2(orece1(c,a,o)),thec2(orece2(c,a,o))):orec(c,b)
 -iff
 @[sigma:'type'][p:[x:sigma]'prop']
-all:=p:'prop'
+%suggestion by van Daalen to remove the first eta-reduction
+%all:=p:'prop' %original line
+all:=[x:sigma]<x>p:'prop'
+%end of suggestion
 [a1:all(sigma,p)][s:sigma]
 alle:=<s>a1:<s>p
 +all
@@ -658,7 +666,10 @@ th6:=th1"e.bij"(sigma,sigma,tau,wissel(s0,t0),f,th3(s0,t0),b):bijective(changef)
 -e
 +r
 a@[b:[x:a]'prop']
-imp:=b:'prop'
+%suggestion by van Daalen to remove the second eta-reduction
+%imp:=b:'prop' %original line
+imp:=[x:a]<x>b:'prop'
+%end of suggestion
 [a1:a][i:imp(a,b)]
 mp:=<a1>i:<a1>b
 +imp