- destruct tactic: automatic simplification in case of failure removed

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

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