]> matita.cs.unibo.it Git - helm.git/commitdiff
autobatch parameters reajusted
authorFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 23 Jul 2007 13:12:40 +0000 (13:12 +0000)
committerFerruccio Guidi <ferruccio.guidi@unibo.it>
Mon, 23 Jul 2007 13:12:40 +0000 (13:12 +0000)
helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/Lift/fun.ma
helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/Lift/inv.ma
helm/software/matita/contribs/LAMBDA-TYPES/Unified-Sub/Lift/props.ma

index cfddffd3df932e642cf204106e1e14e2f7107e34..c88b2f92685d33fd15c5ad9cd63058e538b72562 100644 (file)
@@ -20,13 +20,13 @@ include "Lift/inv.ma".
 
 theorem lift_total: \forall l, t, i. \exists u. Lift l i t u.
  intros 2. elim t; clear t;
- [ auto
+ [ autobatch
  | lapply (nle_gt_or_le n i). decompose;
-   [ auto
-   | lapply (nplus_total l n). decompose. auto
+   [ autobatch
+   | lapply (nplus_total l n). decompose. autobatch
    ]
- | lapply (H i1). lapply (H1 (succ i1)). decompose. auto
- | lapply (H i1). lapply (H1 i1). decompose. auto  
+ | lapply (H i1). lapply (H1 (succ i1)). decompose. autobatch
+ | lapply (H i1). lapply (H1 i1). decompose. autobatch  
  ].
 qed.
 
@@ -39,7 +39,7 @@ theorem lift_mono: \forall l,i,t,t1. Lift l i t t1 \to
  | lapply linear lift_inv_lref_1_le_nplus to H3, H1, H2
  | lapply linear lift_inv_bind_1 to H5. decompose
  | lapply linear lift_inv_flat_1 to H5. decompose
- ]; subst; auto.
+ ]; subst; autobatch.
 qed.
 
 theorem lift_inj: \forall l,i,t1,t. Lift l i t1 t \to
@@ -53,5 +53,5 @@ theorem lift_inj: \forall l,i,t1,t. Lift l i t1 t \to
    lapply lift_inv_lref_2_le_nplus to H3, H0, H2
  | lapply linear lift_inv_bind_2 to H5. decompose
  | lapply linear lift_inv_flat_2 to H5. decompose
- ]; subst; auto.
+ ]; subst; autobatch.
 qed.
index 35540f87ae8cd59d698c3f93d7737e8a8afffd8f..87b7bdc8c1a1241d7e4547f6c0f040452f6980c1 100644 (file)
@@ -30,7 +30,7 @@ theorem lift_inv_lref_1: \forall l, i, j1, x.
                          (i <= j1 \land 
                           \exists j2. (l + j1 == j2) \land x = lref j2
                          ).
- intros. inversion H; clear H; intros; subst; autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst; autobatch depth = 5 size = 7.
 qed.
 
 theorem lift_inv_bind_1: \forall l, i, r, u1, t1, x.
@@ -39,7 +39,7 @@ theorem lift_inv_bind_1: \forall l, i, r, u1, t1, x.
                          Lift l i u1 u2 \land
                          Lift l (succ i) t1 t2 \land
                          x = intb r u2 t2.
- intros. inversion H; clear H; intros; subst. autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst; autobatch depth = 5 size = 7.
 qed.
 
 theorem lift_inv_flat_1: \forall l, i, r, u1, t1, x.
@@ -48,7 +48,7 @@ theorem lift_inv_flat_1: \forall l, i, r, u1, t1, x.
                          Lift l i u1 u2 \land
                          Lift l i t1 t2 \land
                          x = intf r u2 t2.
- intros. inversion H; clear H; intros; subst. autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst. autobatch depth = 5 size = 7.
 qed.
 
 theorem lift_inv_sort_2: \forall l, i, x, h.
@@ -63,7 +63,7 @@ theorem lift_inv_lref_2: \forall l, i, x, j2.
                          (i <= j2 \land 
                           \exists j1. (l + j1 == j2) \land x = lref j1
                          ).
- intros. inversion H; clear H; intros; subst; autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst; autobatch depth = 5 size = 10.
 qed.
 
 theorem lift_inv_bind_2: \forall l, i, r, x, u2, t2.
@@ -72,7 +72,7 @@ theorem lift_inv_bind_2: \forall l, i, r, x, u2, t2.
                          Lift l i u1 u2 \land
                          Lift l (succ i) t1 t2 \land
                          x = intb r u1 t1.
- intros. inversion H; clear H; intros; subst. autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst. autobatch depth = 5 size = 7.
 qed.
 
 theorem lift_inv_flat_2: \forall l, i, r, x, u2, t2.
@@ -81,7 +81,7 @@ theorem lift_inv_flat_2: \forall l, i, r, x, u2, t2.
                          Lift l i u1 u2 \land
                          Lift l i t1 t2 \land
                          x = intf r u1 t1.
- intros. inversion H; clear H; intros; subst. autobatch depth = 5.
+ intros. inversion H; clear H; intros; subst. autobatch depth = 5 size = 7.
 qed.
 
 (* Corollaries of inversion properties ***************************************)
index 34964a5b18884a07635efdffe2c6f2ed26c01b9a..47345e288e73c802fa2f3f223bce3429e8e5fa68 100644 (file)
@@ -25,26 +25,26 @@ theorem lift_comp: \forall l1,i1,t1,t2. Lift l1 i1 t1 t2 \to
  intros 5. elim H; clear H i1 t1 t2;
  [ lapply lift_mono to H1, H2. clear H2. subst.
    lapply linear lift_inv_sort_1 to H1. subst.
-   lapply linear lift_inv_sort_1 to H3. subst. auto
+   lapply linear lift_inv_sort_1 to H3. subst. autobatch
  | lapply lift_mono to H2, H3. clear H3. subst.
    lapply linear lift_inv_lref_1 to H2.
    decompose; subst; clear H2 H5;
-   lapply linear lift_inv_lref_1_gt to H4; subst; auto width = 4
- | lapply lift_inv_lref_1_le to H3; [ 2: auto ]. clear H3.
-   lapply lift_inv_lref_1_le to H4; [ 2: auto ]. clear H4.
+   lapply linear lift_inv_lref_1_gt to H4; subst; autobatch width = 4
+ | lapply lift_inv_lref_1_le to H3; [ 2: autobatch ]. clear H3.
+   lapply lift_inv_lref_1_le to H4; [ 2: autobatch ]. clear H4.
    decompose. subst. clear H6 i2.
-   lapply lift_inv_lref_1_le to H5; [ 2: auto depth = 4 width = 4 ]. 
-   decompose. subst. clear H5 H1 H7 i. auto depth = 4
+   lapply lift_inv_lref_1_le to H5; [ 2: autobatch depth = 4 width = 4 ]. 
+   decompose. subst. clear H5 H1 H7 i. autobatch depth = 4 size = 7
  | clear H1 H3.
    lapply linear lift_inv_bind_1 to H5.
    lapply linear lift_inv_bind_1 to H6. decompose. subst.
    lapply linear lift_inv_bind_1 to H7. decompose. subst.
-   auto width = 5
+   autobatch depth = 4 width = 6 size = 15
  | clear H1 H3.
    lapply linear lift_inv_flat_1 to H5.
    lapply linear lift_inv_flat_1 to H6. decompose. subst.
    lapply linear lift_inv_flat_1 to H7. decompose. subst.
-   auto width = 5
+   autobatch depth = 4 width = 6 size = 9
  ].
 qed.
 
@@ -55,7 +55,7 @@ theorem lift_comp_rew_dx: \forall l1,i1,t1,t2. Lift l1 i1 t1 t2 \to
                           Lift l1 i u1 u2.
  intros.
  lapply (lift_total l1 u1 i). decompose.
- lapply lift_comp to H, H1, H2, H5, H3, H4. subst. auto.
+ lapply lift_comp to H, H1, H2, H5, H3, H4. subst. autobatch.
 qed.
 
 theorem lift_comp_rew_sx: \forall l1,i1,t1,t2. Lift l1 i1 t1 t2 \to
@@ -65,7 +65,7 @@ theorem lift_comp_rew_sx: \forall l1,i1,t1,t2. Lift l1 i1 t1 t2 \to
                           Lift l1 i1 u1 u2.
  intros.
  lapply (lift_total l1 u1 i1). decompose.
- lapply lift_comp to H1, H, H5, H2, H3, H4. subst. auto.
+ lapply lift_comp to H1, H, H5, H2, H3, H4. subst. autobatch.
 qed.
 (*
 theorem lift_trans_le: \forall l1,i1,t1,t2. Lift l1 i1 t1 t2 \to