α₁ : Type u_2
β₁ : Type u_1
inst✝ : DecidableEq α₁
a✝ : α₁
e✝ e : Perm β₁
a a' : α₁
b : β₁
h : a' ≠ a
⊢ ↑(prodExtendRight a e) (a', b) = (a', b)
α₁ : Type u_2
β₁ : Type u_1
inst✝ : DecidableEq α₁
a✝ : α₁
e✝ e : Perm β₁
a a' : α₁
b : β₁
h : ↑(prodExtendRight a e) (a', b) ≠ (a', b)
⊢ a' = a
contrapose! h
no goals
α₁ : Type u_2
β₁ : Type u_1
inst✝ : DecidableEq α₁
a✝ : α₁
e✝ e : Perm β₁
a a' : α₁
b : β₁
h : a' ≠ a
⊢ ↑(prodExtendRight a e) (a', b) = (a', b)
exact prodExtendRight_apply_ne _ h _