X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcoq.ma;h=10a3de67717411dfda3ee9fb16875cfd7debe35b;hb=f7d04edd37b51a7daa4e372be9439163f92648b6;hp=4c3d8f772780e6e8cc011743ea55cf4905fd5b13;hpb=56062350e31144f05421de6f895101ab3defc324;p=helm.git

diff --git a/helm/matita/coq.ma b/helm/matita/coq.ma
index 4c3d8f772..10a3de677 100644
--- a/helm/matita/coq.ma
+++ b/helm/matita/coq.ma
@@ -24,7 +24,7 @@ interpretation "Coq's binary integer unary minus" 'uminus x = (cic:/Coq/ZArith/B
 interpretation "Coq's logical and" 'and x y = (cic:/Coq/Init/Logic/and.ind#xpointer(1/1) x y).
 interpretation "Coq's logical or" 'or x y = (cic:/Coq/Init/Logic/or.ind#xpointer(1/1) x y).
 interpretation "Coq's logical not" 'not x = (cic:/Coq/Init/Logic/not.con x).
-interpretation "Coq's exists" 'exists x y = (cic:/Coq/Init/Logic/ex.ind#xpointer(1/1) x y).
+interpretation "Coq's exists" 'exists \eta.x = (cic:/Coq/Init/Logic/ex.ind#xpointer(1/1) _ x).
 
 (* relational operators *)