X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda%2Fbackground%2Fxoa.ma;fp=matita%2Fmatita%2Fcontribs%2Flambda%2Fbackground%2Fxoa.ma;h=a2f19a6b70c5637bb3207324fed3bd9924f65a8d;hb=4853e6e91abc124f9e6db1006cd731dbcf5708b9;hp=f18b06ec94b3b3127e53f53d601545c646329115;hpb=2a11039cffb66439322ef7d3cf5eb6f241c33d16;p=helm.git

diff --git a/matita/matita/contribs/lambda/background/xoa.ma b/matita/matita/contribs/lambda/background/xoa.ma
index f18b06ec9..a2f19a6b7 100644
--- a/matita/matita/contribs/lambda/background/xoa.ma
+++ b/matita/matita/contribs/lambda/background/xoa.ma
@@ -16,6 +16,14 @@
 
 include "basics/pts.ma".
 
+(* multiple existental quantifier (1, 2) *)
+
+inductive ex1_2 (A0,A1:Type[0]) (P0:A0→A1→Prop) : Prop ≝
+   | ex1_2_intro: ∀x0,x1. P0 x0 x1 → ex1_2 ? ? ?
+.
+
+interpretation "multiple existental quantifier (1, 2)" 'Ex P0 = (ex1_2 ? ? P0).
+
 (* multiple existental quantifier (2, 2) *)
 
 inductive ex2_2 (A0,A1:Type[0]) (P0,P1:A0→A1→Prop) : Prop ≝