X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLOGIC%2Fdatatypes_props%2FSequent.ma;h=335a10bf3ce1f03887f547143bd3280f8ae25f63;hb=7048db496643fc440aebc6e85dd425886bcd2e56;hp=1b0ea6cf819b0653219f35f69a1a5a69f9831cd2;hpb=658d76a1961418ee20d610bccff04b1d38cf206e;p=helm.git

diff --git a/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma b/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma
index 1b0ea6cf8..335a10bf3 100644
--- a/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma
+++ b/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma
@@ -12,8 +12,14 @@
 (*                                                                        *)
 (**************************************************************************)
 
-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.