-- Mathlib/.lake/packages/lean4/src/lean/Std/Tactic/BVDecide/Bitblast/BVExpr/Circuit/Lemmas/Operations/ShiftLeft.lean
theorem denote_blastShiftLeftConst (aig : AIG α) (target : ShiftTarget aig w)
    (assign : α → Bool) :
    ∀ (idx : Nat) (hidx : idx < w),
        ⟦
          (blastShiftLeftConst aig target).aig,
          (blastShiftLeftConst aig target).vec.get idx hidx,
          assign
        ⟧
          =
        if hidx : idx < target.distance then
          false
        else
          ⟦aig, target.vec.get (idx - target.distance) (by omega), assign⟧

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
⊢ ∀ (idx : Nat) (hidx : idx < w),
    ⟦assign,
        { aig := (blastShiftLeftConst aig target).aig, ref := (blastShiftLeftConst aig target).vec.get idx hidx }⟧ =
      if hidx : idx < target.distance then false
      else ⟦assign, { aig := aig, ref := target.vec.get (idx - target.distance) ⋯ }⟧

Tactic:
intros

Result:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ ⟦assign,
      { aig := (blastShiftLeftConst aig target).aig, ref := (blastShiftLeftConst aig target).vec.get idx✝ hidx✝ }⟧ =
    if hidx : idx✝ < target.distance then false
    else ⟦assign, { aig := aig, ref := target.vec.get (idx✝ - target.distance) ⋯ }⟧

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ ⟦assign,
      {
        aig :=
          (match target with
            | { vec := input, distance := distance } => blastShiftLeftConst.go aig input distance 0 ⋯ RefVec.empty).aig,
        ref :=
          (match target with
                | { vec := input, distance := distance } =>
                  blastShiftLeftConst.go aig input distance 0 ⋯ RefVec.empty).vec.get
            idx✝ hidx✝ }⟧ =
    if hidx : idx✝ < target.distance then false
    else ⟦assign, { aig := aig, ref := target.vec.get (idx✝ - target.distance) ⋯ }⟧

Tactic:
apply blastShiftLeftConst.go_denote_eq

Result:
case a
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ 0 ≤ idx✝

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx : Nat
hidx✝ : idx < w
hidx : ¬idx < target.distance
⊢ idx - target.distance < w

Tactic:
omega

Result:
no goals

Proof state:
case a
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ 0 ≤ idx✝

Tactic:
omega

Result:
no goals

Proof state:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ ⟦assign,
      { aig := (blastShiftLeftConst aig target).aig, ref := (blastShiftLeftConst aig target).vec.get idx✝ hidx✝ }⟧ =
    if hidx : idx✝ < target.distance then false
    else ⟦assign, { aig := aig, ref := target.vec.get (idx✝ - target.distance) ⋯ }⟧

Tactic:
unfold blastShiftLeftConst

Result:
α : Type
inst✝¹ : Hashable α
inst✝ : DecidableEq α
w : Nat
aig : AIG α
target : aig.ShiftTarget w
assign : α → Bool
idx✝ : Nat
hidx✝ : idx✝ < w
⊢ ⟦assign,
      {
        aig :=
          (match target with
            | { vec := input, distance := distance } => blastShiftLeftConst.go aig input distance 0 ⋯ RefVec.empty).aig,
        ref :=
          (match target with
                | { vec := input, distance := distance } =>
                  blastShiftLeftConst.go aig input distance 0 ⋯ RefVec.empty).vec.get
            idx✝ hidx✝ }⟧ =
    if hidx : idx✝ < target.distance then false
    else ⟦assign, { aig := aig, ref := target.vec.get (idx✝ - target.distance) ⋯ }⟧