-- Mathlib/.lake/packages/lean4/src/lean/Std/Tactic/BVDecide/Bitblast/BVExpr/Circuit/Lemmas/Operations/ShiftLeft.lean
theorem twoPowShift_eq (aig : AIG α) (target : TwoPowShiftTarget aig w) (lhs : BitVec w)
    (rhs : BitVec target.n) (assign : α → Bool)
    (hleft : ∀ (idx : Nat) (hidx : idx < w), ⟦aig, target.lhs.get idx hidx, assign⟧ = lhs.getLsbD idx)
    (hright : ∀ (idx : Nat) (hidx : idx < target.n), ⟦aig, target.rhs.get idx hidx, assign⟧ = rhs.getLsbD idx) :
    ∀ (idx : Nat) (hidx : idx < w),
        ⟦
          (twoPowShift aig target).aig,
          (twoPowShift aig target).vec.get idx hidx,
          assign
        ⟧
          =
        (lhs <<< (rhs &&& BitVec.twoPow target.n target.pow)).getLsbD idx

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = false
⊢ ⟦assign,
      { aig := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig,
        ref := { gate := (lvec.get idx hidx).gate, hgate := ⋯ } }⟧ =
    (lhs <<< 0#n).getLsbD idx

Tactic:
rw [AIG.LawfulVecOperator.denote_mem_prefix (f := blastShiftLeftConst)]

Result:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = false
⊢ ⟦assign, { aig := aig, ref := { gate := (lvec.get idx hidx).gate, hgate := ?m.83352 } }⟧ = (lhs <<< 0#n).getLsbD idx

α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = false
⊢ (lvec.get idx hidx).gate < aig.decls.size

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = true
⊢ (if
        ⟦assign,
            { aig := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig,
              ref := { gate := (rvec.get pow h✝).gate, hgate := ⋯ } }⟧ =
          true then
      if h : idx < 2 ^ pow then false else ⟦assign, { aig := aig, ref := lvec.get (idx - 2 ^ pow) ⋯ }⟧
    else
      ⟦assign,
        { aig := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig,
          ref := { gate := (lvec.get idx hidx).gate, hgate := ⋯ } }⟧) =
    (lhs <<< BitVec.twoPow n pow).getLsbD idx

Tactic:
rw [AIG.LawfulVecOperator.denote_mem_prefix (f := blastShiftLeftConst)]

Result:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = true
⊢ (if ⟦assign, { aig := aig, ref := { gate := (rvec.get pow h✝).gate, hgate := ?m.71089 } }⟧ = true then
      if h : idx < 2 ^ pow then false else ⟦assign, { aig := aig, ref := lvec.get (idx - 2 ^ pow) ⋯ }⟧
    else
      ⟦assign,
        { aig := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig,
          ref := { gate := (lvec.get idx hidx).gate, hgate := ⋯ } }⟧) =
    (lhs <<< BitVec.twoPow n pow).getLsbD idx

α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
lhs : BitVec w
assign : α → Bool
idx : Nat
hidx : idx < w
res : RefVecEntry α w
n : Nat
lvec : aig.RefVec w
rvec : aig.RefVec n
pow : Nat
rhs : BitVec { n := n, lhs := lvec, rhs := rvec, pow := pow }.n
hleft :
  ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.lhs.get idx hidx }⟧ = lhs.getLsbD idx
hright :
  ∀ (idx : Nat) (hidx : idx < { n := n, lhs := lvec, rhs := rvec, pow := pow }.n),
    ⟦assign, { aig := aig, ref := { n := n, lhs := lvec, rhs := rvec, pow := pow }.rhs.get idx hidx }⟧ = rhs.getLsbD idx
h✝ : pow < n
hg :
  RefVec.ite (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).aig
      { discr := (rvec.cast ⋯).get pow h✝, lhs := (blastShiftLeftConst aig { vec := lvec, distance := 2 ^ pow }).vec,
        rhs := lvec.cast ⋯ } =
    res
hif1 : rhs.getLsbD pow = true
⊢ (rvec.get pow h✝).gate < aig.decls.size