X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fbasics%2Fstar.ma;h=36aee8fe45465c016a6ca3709046a0c6fefd11c7;hb=be80aa40b9a66d5b12f92d03c2aa7b1dd8e49893;hp=5ac7d91fb624e3b4a872d9c20a8c770a506fd38e;hpb=2d35cd1602d585ecb2c6623a1b2bd1e0c81aa93b;p=helm.git diff --git a/matita/matita/lib/basics/star.ma b/matita/matita/lib/basics/star.ma index 5ac7d91fb..36aee8fe4 100644 --- a/matita/matita/lib/basics/star.ma +++ b/matita/matita/lib/basics/star.ma @@ -273,7 +273,7 @@ lemma bi_TC_strap: ∀A,B. ∀R:bi_relation A B. ∀a1,a,a2,b1,b,b2. R a1 b1 a b → bi_TC … R a b a2 b2 → bi_TC … R a1 b1 a2 b2. #A #B #R #a1 #a #a2 #b1 #b #b2 #HR #H elim H -a2 -b2 /2 width=4/ /3 width=4/ qed. - + lemma bi_TC_reflexive: ∀A,B,R. bi_reflexive A B R → bi_reflexive A B (bi_TC … R). /2 width=1/ qed.