X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FLOGIC%2Fdatatypes_props%2FSequent.ma;h=f7c44a81fd8ea9bdb0a6a5efc144a8777ea00c9a;hb=5aa4da5846c72942f3d204f71ecfba8d6cc7911b;hp=1b0ea6cf819b0653219f35f69a1a5a69f9831cd2;hpb=f1efdff5ded26d264f2848ff53c19fe2099682a3;p=helm.git

diff --git a/matita/contribs/LOGIC/datatypes_props/Sequent.ma b/matita/contribs/LOGIC/datatypes_props/Sequent.ma
index 1b0ea6cf8..f7c44a81f 100644
--- a/matita/contribs/LOGIC/datatypes_props/Sequent.ma
+++ b/matita/contribs/LOGIC/datatypes_props/Sequent.ma
@@ -16,4 +16,10 @@ set "baseuri" "cic:/matita/LOGIC/datatypes_props/Sequent".
 
 include "datatypes_defs/Sequent.ma".
 
+theorem linj_inj: \forall a,c. linj a = linj c \to a = c.
+ intros; whd in H:(? ? % %); destruct; autobatch.
+qed.
+
 theorem rinj_inj: \forall b,d. rinj b = rinj d \to b = d.
+ intros; whd in H:(? ? % %); destruct; autobatch.
+qed.