Theorem: AIG.RefStream.map.go_le_size (LeanSAT/AIG/RefStreamOperator.lean)

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
⊢ aig.decls.size ≤ (go aig idx hidx s input f).aig.decls.size
Tactic:
unfold go
State after:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
⊢ aig.decls.size ≤
    (if hidx : idx < len then
            let res := f aig (input.getRef idx hidx);
            let aig_1 := res.aig;
            let newRef := res.ref;
            let_fun this := ⋯;
            let input_1 := input.cast this;
            let s := s.cast this;
            let s := s.pushRef newRef;
            go aig_1 (idx + 1) ⋯ s input_1 f
          else
            let_fun this := ⋯;
            { aig := aig, stream := this ▸ s }).aig.decls.size

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
⊢ aig.decls.size ≤
    (if hidx : idx < len then
            let res := f aig (input.getRef idx hidx);
            let aig_1 := res.aig;
            let newRef := res.ref;
            let_fun this := ⋯;
            let input_1 := input.cast this;
            let s := s.cast this;
            let s := s.pushRef newRef;
            go aig_1 (idx + 1) ⋯ s input_1 f
          else
            let_fun this := ⋯;
            { aig := aig, stream := this ▸ s }).aig.decls.size
Tactic:
split
State after:
case isTrue
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : idx < len
⊢ aig.decls.size ≤
    (let res := f aig (input.getRef idx h✝);
          let aig_1 := res.aig;
          let newRef := res.ref;
          let_fun this := ⋯;
          let input_1 := input.cast this;
          let s := s.cast this;
          let s := s.pushRef newRef;
          go aig_1 (idx + 1) ⋯ s input_1 f).aig.decls.size

case isFalse
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : ¬idx < len
⊢ aig.decls.size ≤
    (let_fun this := ⋯;
          { aig := aig, stream := this ▸ s }).aig.decls.size

State before:
case isTrue
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : idx < len
⊢ aig.decls.size ≤
    (let res := f aig (input.getRef idx h✝);
          let aig_1 := res.aig;
          let newRef := res.ref;
          let_fun this := ⋯;
          let input_1 := input.cast this;
          let s := s.cast this;
          let s := s.pushRef newRef;
          go aig_1 (idx + 1) ⋯ s input_1 f).aig.decls.size

case isFalse
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : ¬idx < len
⊢ aig.decls.size ≤
    (let_fun this := ⋯;
          { aig := aig, stream := this ▸ s }).aig.decls.size
Tactic:
. next h =>
  dsimp
  refine Nat.le_trans ?_ (by apply map.go_le_size)
  apply LawfulOperator.le_size
State after:
case isFalse
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : ¬idx < len
⊢ aig.decls.size ≤
    (let_fun this := ⋯;
          { aig := aig, stream := this ▸ s }).aig.decls.size

State before:
case isFalse
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : ¬idx < len
⊢ aig.decls.size ≤
    (let_fun this := ⋯;
          { aig := aig, stream := this ▸ s }).aig.decls.size
Tactic:
. simp
State after:
no goals

State before:
case isTrue
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : idx < len
⊢ aig.decls.size ≤
    (let res := f aig (input.getRef idx h✝);
          let aig_1 := res.aig;
          let newRef := res.ref;
          let_fun this := ⋯;
          let input_1 := input.cast this;
          let s := s.cast this;
          let s := s.pushRef newRef;
          go aig_1 (idx + 1) ⋯ s input_1 f).aig.decls.size
Tactic:
next h =>
dsimp
refine Nat.le_trans ?_ (by apply map.go_le_size)
apply LawfulOperator.le_size
State after:
no goals

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ aig.decls.size ≤
    (let res := f aig (input.getRef idx h);
          let aig_1 := res.aig;
          let newRef := res.ref;
          let_fun this := ⋯;
          let input_1 := input.cast this;
          let s := s.cast this;
          let s := s.pushRef newRef;
          go aig_1 (idx + 1) ⋯ s input_1 f).aig.decls.size
Tactic:
dsimp
State after:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ aig.decls.size ≤
    (go (f aig (input.getRef idx h)).aig (idx + 1) ⋯ ((s.cast ⋯).pushRef (f aig (input.getRef idx h)).ref)
            (input.cast ⋯) f).aig.decls.size

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ aig.decls.size ≤
    (go (f aig (input.getRef idx h)).aig (idx + 1) ⋯ ((s.cast ⋯).pushRef (f aig (input.getRef idx h)).ref)
            (input.cast ⋯) f).aig.decls.size
Tactic:
refine Nat.le_trans ?_ (by apply map.go_le_size)
State after:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ aig.decls.size ≤ (f aig (input.getRef idx h)).aig.decls.size

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ aig.decls.size ≤ (f aig (input.getRef idx h)).aig.decls.size
Tactic:
apply LawfulOperator.le_size
State after:
no goals

State before:
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h : idx < len
⊢ ?m.26457 ≤
    (go (f aig (input.getRef idx h)).aig (idx + 1) ⋯ ((s.cast ⋯).pushRef (f aig (input.getRef idx h)).ref)
            (input.cast ⋯) f).aig.decls.size
Tactic:
apply map.go_le_size
State after:
no goals

State before:
case isFalse
α : Type
inst✝⁴ : BEq α
inst✝³ : Hashable α
inst✝² : DecidableEq α
aig✝ : AIG α
len : Nat
aig : AIG α
idx : Nat
hidx : idx ≤ len
s : aig.RefStream idx
input : aig.RefStream len
f : (aig : AIG α) → aig.Ref → Entrypoint α
inst✝¹ : LawfulOperator α Ref f
inst✝ : LawfulMapOperator α f
h✝ : ¬idx < len
⊢ aig.decls.size ≤
    (let_fun this := ⋯;
          { aig := aig, stream := this ▸ s }).aig.decls.size
Tactic:
simp
State after:
no goals