ocaml 3.09 transition

[helm.git] / helm / matita / coq.ma

diff --git a/helm/matita/coq.ma b/helm/matita/coq.ma
index 4c3d8f772780e6e8cc011743ea55cf4905fd5b13..10a3de67717411dfda3ee9fb16875cfd7debe35b 100644 (file)
--- 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 *)