(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/LOGIC/Track/pred".
+
(**)
+include "datatypes_props/Sequent.ma".
include "Track/inv.ma".
include "PRed/defs.ma".
| lapply linear track_inv_scut to H4; decompose; destruct;
lapply linear track_inv_lref to H5; decompose; autobatch
| lapply linear track_inv_scut to H3; decompose; destruct;
- lapply linear track_inv_prin to H5; destruct; autobatch
+ lapply linear track_inv_prin to H5; destruct;
+ lapply linear rinj_inj to Hcut1; destruct; autobatch
| lapply linear track_inv_scut to H3; decompose; destruct;
- lapply linear track_inv_prin to H4; destruct; autobatch
+ lapply linear track_inv_prin to H4; destruct;
+ lapply linear linj_inj to Hcut; destruct; autobatch
| lapply linear track_inv_scut to H3; decompose; destruct;
lapply linear track_inv_impw to H4; decompose; destruct;
lapply linear track_inv_impr to H5; decompose; destruct; autobatch