-- Mathlib/.lake/packages/lean4/src/lean/Std/Tactic/BVDecide/Bitblast/BVExpr/Circuit/Impl/Expr.lean
theorem bitblast.go_decl_eq (aig : AIG BVBit) (expr : BVExpr w) :
    ∀ (idx : Nat) (h1) (h2), (go aig expr).val.aig.decls[idx]'h2 = aig.decls[idx]'h1

Proof state:
case append.h2
w idx l✝ r✝ : Nat
lhs : BVExpr l✝
rhs : BVExpr r✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.append rhs)).val.aig.decls.size
this✝¹ this✝ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
⊢ idx < (go aig lhs).val.aig.decls.size

Tactic:
omega

Result:
no goals

Proof state:
case replicate
w idx w✝ n : Nat
inner : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig inner).val.aig.decls.size),
    (go aig inner).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (replicate n inner)).val.aig.decls.size
⊢ (blastReplicate (go aig inner).1.aig (ReplicateTarget.mk n (go aig inner).1.vec ⋯)).aig.decls[idx] = aig.decls[idx]

Tactic:
rw [AIG.LawfulVecOperator.decl_eq (f := blastReplicate)]

Result:
case replicate
w idx w✝ n : Nat
inner : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig inner).val.aig.decls.size),
    (go aig inner).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (replicate n inner)).val.aig.decls.size
⊢ (go aig inner).1.aig.decls[idx] = aig.decls[idx]

case replicate.h1
w idx w✝ n : Nat
inner : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig inner).val.aig.decls.size),
    (go aig inner).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (replicate n inner)).val.aig.decls.size
⊢ idx < (go aig inner).1.aig.decls.size

Proof state:
w idx w✝ : Nat
lhs : BVExpr w✝
op : BVBinOp
rhs : BVExpr w✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.bin BVBinOp.umod rhs)).val.aig.decls.size
this✝ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
⊢ (blastUmod (go (go aig lhs).1.aig rhs).1.aig
            { lhs := (go aig lhs).1.vec.cast ⋯, rhs := (go (go aig lhs).1.aig rhs).1.vec }).aig.decls[idx] =
    aig.decls[idx]

Tactic:
have := (bitblast.go aig lhs).property

Result:
w idx w✝ : Nat
lhs : BVExpr w✝
op : BVBinOp
rhs : BVExpr w✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.bin BVBinOp.umod rhs)).val.aig.decls.size
this✝¹ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this✝ : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
this : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
⊢ (blastUmod (go (go aig lhs).1.aig rhs).1.aig
            { lhs := (go aig lhs).1.vec.cast ⋯, rhs := (go (go aig lhs).1.aig rhs).1.vec }).aig.decls[idx] =
    aig.decls[idx]

Proof state:
case shiftLeft
w idx m✝ n✝ : Nat
lhs : BVExpr m✝
rhs : BVExpr n✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.shiftLeft rhs)).val.aig.decls.size
this✝¹ this✝ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
⊢ (blastShiftLeft (go (go aig lhs).1.aig rhs).1.aig
            { n := n✝, target := (go aig lhs).1.vec.cast ⋯,
              distance := (go (go aig lhs).1.aig rhs).1.vec }).aig.decls[idx] =
    aig.decls[idx]

Tactic:
rw [AIG.LawfulVecOperator.decl_eq (f := blastShiftLeft)]

Result:
case shiftLeft
w idx m✝ n✝ : Nat
lhs : BVExpr m✝
rhs : BVExpr n✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.shiftLeft rhs)).val.aig.decls.size
this✝¹ this✝ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
⊢ (go (go aig lhs).1.aig rhs).1.aig.decls[idx] = aig.decls[idx]

case shiftLeft.h1
w idx m✝ n✝ : Nat
lhs : BVExpr m✝
rhs : BVExpr n✝
lih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig lhs).val.aig.decls.size),
    (go aig lhs).val.aig.decls[idx] = aig.decls[idx]
rih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig rhs).val.aig.decls.size),
    (go aig rhs).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (lhs.shiftLeft rhs)).val.aig.decls.size
this✝¹ this✝ : aig.decls.size ≤ (go aig lhs).val.aig.decls.size
this : (go aig lhs).val.aig.decls.size ≤ (go (go aig lhs).val.aig rhs).val.aig.decls.size
⊢ idx < (go (go aig lhs).1.aig rhs).1.aig.decls.size

Proof state:
case h2
w idx w✝ : Nat
op : BVUnOp
expr : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig expr).val.aig.decls.size),
    (go aig expr).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
n✝ : Nat
h2 : idx < (go aig (un (BVUnOp.arithShiftRightConst n✝) expr)).val.aig.decls.size
⊢ idx < (go aig expr).val.aig.decls.size

Tactic:
have := (go aig expr).property

Result:
case h2
w idx w✝ : Nat
op : BVUnOp
expr : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig expr).val.aig.decls.size),
    (go aig expr).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
n✝ : Nat
h2 : idx < (go aig (un (BVUnOp.arithShiftRightConst n✝) expr)).val.aig.decls.size
this : aig.decls.size ≤ (go aig expr).val.aig.decls.size
⊢ idx < (go aig expr).val.aig.decls.size

Proof state:
case signExtend.h2
w✝¹ idx w✝ w : Nat
inner : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig inner).val.aig.decls.size),
    (go aig inner).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (signExtend w inner)).val.aig.decls.size
⊢ idx < (go aig inner).val.aig.decls.size

Tactic:
have := (go aig inner).property

Result:
case signExtend.h2
w✝¹ idx w✝ w : Nat
inner : BVExpr w✝
ih :
  ∀ (aig : AIG BVBit) (h1 : idx < aig.decls.size) (h2 : idx < (go aig inner).val.aig.decls.size),
    (go aig inner).val.aig.decls[idx] = aig.decls[idx]
aig : AIG BVBit
h1 : idx < aig.decls.size
h2 : idx < (go aig (signExtend w inner)).val.aig.decls.size
this : aig.decls.size ≤ (go aig inner).val.aig.decls.size
⊢ idx < (go aig inner).val.aig.decls.size