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

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

Tactic:
unfold blastShiftRightConst

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 } =>
              blastShiftRightConst.go aig input distance 0 ⋯ RefVec.empty).aig,
        ref :=
          (match target with
                | { vec := input, distance := distance } =>
                  blastShiftRightConst.go aig input distance 0 ⋯ RefVec.empty).vec.get
            idx✝ hidx✝ }⟧ =
    if hidx : target.distance + idx✝ < w then ⟦assign, { aig := aig, ref := target.vec.get (target.distance + idx✝) ⋯ }⟧
    else false

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

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 := (blastShiftRightConst aig target).aig, ref := (blastShiftRightConst aig target).vec.get idx✝ hidx✝ }⟧ =
    if hidx : target.distance + idx✝ < w then ⟦assign, { aig := aig, ref := target.vec.get (target.distance + idx✝) ⋯ }⟧
    else false

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 } =>
              blastShiftRightConst.go aig input distance 0 ⋯ RefVec.empty).aig,
        ref :=
          (match target with
                | { vec := input, distance := distance } =>
                  blastShiftRightConst.go aig input distance 0 ⋯ RefVec.empty).vec.get
            idx✝ hidx✝ }⟧ =
    if hidx : target.distance + idx✝ < w then ⟦assign, { aig := aig, ref := target.vec.get (target.distance + idx✝) ⋯ }⟧
    else false

Tactic:
apply blastShiftRightConst.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:
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
hidx : target.distance + idx < w
⊢ target.distance + idx < w

Tactic:
omega

Result:
no goals