X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Flib%2Fexteq.ma;h=81c5373a0d9b7ba4ab8559b169e32da074fe7776;hb=55c768d7e45babb300b5010463ba3196a68f1bbe;hp=148cbc51232a0327b4200ed533ee107a1e62ebf1;hpb=15212e44902f25536f6e2de4bec4cedcd9a9804d;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/ground/lib/exteq.ma b/matita/matita/contribs/lambdadelta/ground/lib/exteq.ma index 148cbc512..81c5373a0 100644 --- a/matita/matita/contribs/lambdadelta/ground/lib/exteq.ma +++ b/matita/matita/contribs/lambdadelta/ground/lib/exteq.ma @@ -26,22 +26,28 @@ interpretation (* Basic constructions ******************************************************) -lemma exteq_refl (A) (B): reflexive … (exteq A B). +lemma exteq_refl (A) (B): + reflexive … (exteq A B). // qed. -lemma exteq_repl (A) (B): replace_2 … (exteq A B) (exteq A B) (exteq A B). +lemma exteq_repl (A) (B): + replace_2 … (exteq A B) (exteq A B) (exteq A B). // qed-. -lemma exteq_sym (A) (B): symmetric … (exteq A B). +lemma exteq_sym (A) (B): + symmetric … (exteq A B). /2 width=1 by exteq_repl/ qed-. -lemma exteq_trans (A) (B): Transitive … (exteq A B). +lemma exteq_trans (A) (B): + Transitive … (exteq A B). /2 width=1 by exteq_repl/ qed-. -lemma exteq_canc_sn (A) (B): left_cancellable … (exteq A B). +lemma exteq_canc_sn (A) (B): + left_cancellable … (exteq A B). /2 width=1 by exteq_repl/ qed-. -lemma exteq_canc_dx (A) (B): right_cancellable … (exteq A B). +lemma exteq_canc_dx (A) (B): + right_cancellable … (exteq A B). /2 width=1 by exteq_repl/ qed-. (* Constructions with compose ***********************************************)