have claim2 := repl_in_model_rel_iff x ψ α2 M w v
α1 α2 : Program
x : ℕ
ψ : Formula
hyp : α1≡ᵣα2
W : Type
M : KripkeModel W
w v : W
claim1 : relate M (repl_in_P x ψ α1) w v ↔ relate (repl_in_model x ψ M) α1 w v
⊢ relate M (repl_in_P x ψ α1) w v ↔ relate M (repl_in_P x ψ α2) w v
α1 α2 : Program
x : ℕ
ψ : Formula
hyp : α1≡ᵣα2
W : Type
M : KripkeModel W
w v : W
claim1 : relate M (repl_in_P x ψ α1) w v ↔ relate (repl_in_model x ψ M) α1 w v
claim2 : relate M (repl_in_P x ψ α2) w v ↔ relate (repl_in_model x ψ M) α2 w v
⊢ relate M (repl_in_P x ψ α1) w v ↔ relate M (repl_in_P x ψ α2) w v