X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_2%2Flib%2Frelations.ma;h=47524fd84d4669ebe1b4d425074aece7642941eb;hb=d8d00d6f6694155be5be486a8239f5953efe28b7;hp=d272c0dbee63dfdbb474d8e6fa64a8ec7d099a89;hpb=db020b4218272e2e35641ce3bc3b0a9b3afda899;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground_2/lib/relations.ma b/matita/matita/contribs/lambdadelta/ground_2/lib/relations.ma index d272c0dbe..47524fd84 100644 --- a/matita/matita/contribs/lambdadelta/ground_2/lib/relations.ma +++ b/matita/matita/contribs/lambdadelta/ground_2/lib/relations.ma @@ -13,6 +13,8 @@ (**************************************************************************) include "basics/relations.ma". +include "ground_2/xoa/and_3.ma". +include "ground_2/xoa/ex_2_2.ma". include "ground_2/lib/logic.ma". (* GENERIC RELATIONS ********************************************************) @@ -42,7 +44,7 @@ definition relation5: Type[0] → Type[0] → Type[0] → Type[0] → Type[0] definition relation6: Type[0] → Type[0] → Type[0] → Type[0] → Type[0] → Type[0] → Type[0] ≝ λA,B,C,D,E,F.A→B→C→D→E→F→Prop. -(**) (* we don't use "∀a. reflexive … (R a)" since auto seems to dislike repeatd δ-expansion *) +(**) (* we don't use "∀a. reflexive … (R a)" since auto seems to dislike repeatd δ-expansion *) definition c_reflexive (A) (B): predicate (relation3 A B B) ≝ λR. ∀a,b. R a b b.