X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Flib%2Frelations.ma;h=56f6e21f79cf0d3bbad1159d5a257bdb33d98386;hp=b132d8682735f4c893e6f14dc44f103908fac508;hb=6604a232815858a6c75dd25ac45abd68438077ff;hpb=888840f6b3a71d3d686b53b702d362ab90ab0038 diff --git a/matita/matita/contribs/lambdadelta/ground/lib/relations.ma b/matita/matita/contribs/lambdadelta/ground/lib/relations.ma index b132d8682..56f6e21f7 100644 --- a/matita/matita/contribs/lambdadelta/ground/lib/relations.ma +++ b/matita/matita/contribs/lambdadelta/ground/lib/relations.ma @@ -135,13 +135,13 @@ lemma NF_to_SN_sn (A) (R) (S): ∀a. NF_sn A R S a → SN_sn A R S a. elim HSa12 -HSa12 /2 width=1 by/ qed. -(* Normal form and strong normalization on unboxed triples ******************) +(* Normal form and strong normalization with unboxed triples ****************) inductive SN3 (A) (B) (C) (R,S:relation6 A B C A B C): relation3 A B C ≝ | SN3_intro: ∀a1,b1,c1. (∀a2,b2,c2. R a1 b1 c1 a2 b2 c2 → (S a1 b1 c1 a2 b2 c2 → ⊥) → SN3 … R S a2 b2 c2) → SN3 … R S a1 b1 c1 . -(* Relations on unboxed triples *********************************************) +(* Relations with unboxed triples *******************************************) definition tri_RC (A,B,C): tri_relation A B C → tri_relation A B C ≝ λR,a1,b1,c1,a2,b2,c2.