ground_2: generic rt-transition counter

[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / xoa / xoa.ma

diff --git a/matita/matita/contribs/lambdadelta/ground_2/xoa/xoa.ma b/matita/matita/contribs/lambdadelta/ground_2/xoa/xoa.ma
index f103fe7471c753eeff7060c1018768f2461813f1..2fe6168ad036d3890b7df91926778a32c2951cd6 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground_2/xoa/xoa.ma
+++ b/matita/matita/contribs/lambdadelta/ground_2/xoa/xoa.ma
@@ -82,6 +82,14 @@ inductive ex3_4 (A0,A1,A2,A3:Type[0]) (P0,P1,P2:A0→A1→A2→A3→Prop) : Prop
 
 interpretation "multiple existental quantifier (3, 4)" 'Ex P0 P1 P2 = (ex3_4 ? ? ? ? P0 P1 P2).
 
+(* multiple existental quantifier (3, 5) *)
+
+inductive ex3_5 (A0,A1,A2,A3,A4:Type[0]) (P0,P1,P2:A0→A1→A2→A3→A4→Prop) : Prop ≝
+   | ex3_5_intro: ∀x0,x1,x2,x3,x4. P0 x0 x1 x2 x3 x4 → P1 x0 x1 x2 x3 x4 → P2 x0 x1 x2 x3 x4 → ex3_5 ? ? ? ? ? ? ? ?
+.
+
+interpretation "multiple existental quantifier (3, 5)" 'Ex P0 P1 P2 = (ex3_5 ? ? ? ? ? P0 P1 P2).
+
 (* multiple existental quantifier (4, 1) *)
 
 inductive ex4 (A0:Type[0]) (P0,P1,P2,P3:A0→Prop) : Prop ≝