1. new expressions AND, OR, XOR

[helm.git] / helm / software / matita / contribs / LOGIC / datatypes_props / Sequent.ma

diff --git a/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma b/helm/software/matita/contribs/LOGIC/datatypes_props/Sequent.ma
index 1b0ea6cf819b0653219f35f69a1a5a69f9831cd2..335a10bf3ce1f03887f547143bd3280f8ae25f63 100644 (file)
--- 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.