α✝ : Type ?u.224717
β : Type ?u.224720
γ : Type ?u.224723
r✝ : α✝ → α✝ → Prop
s : β → β → Prop
t : γ → γ → Prop
c : Cardinal
α : Type u_1
r : α → α → Prop
w✝ : IsWellOrder α r
e : ord (#α) = type r
⊢ card (ord (Quotient.mk isEquivalent α)) = Quotient.mk isEquivalent α
α✝ : Type ?u.224717
β : Type ?u.224720
γ : Type ?u.224723
r : α✝ → α✝ → Prop
s : β → β → Prop
t : γ → γ → Prop
c : Cardinal
α : Type u_1
⊢ card (ord (Quotient.mk isEquivalent α)) = Quotient.mk isEquivalent α
let ⟨r, _, e⟩ := ord_eq α
no goals
α✝ : Type ?u.224717
β : Type ?u.224720
γ : Type ?u.224723
r✝ : α✝ → α✝ → Prop
s : β → β → Prop
t : γ → γ → Prop
c : Cardinal
α : Type u_1
r : α → α → Prop
w✝ : IsWellOrder α r
e : ord (#α) = type r
⊢ card (ord (Quotient.mk isEquivalent α)) = Quotient.mk isEquivalent α
simp only [mk'_def, e, card_type]