@@ -611,15 +611,15 @@ theorem mk_equiv_eq_arrow_of_lift_eq (leq : lift.{v} #α = lift.{u} #β') :
611611 obtain ⟨e⟩ := lift_mk_eq'.mp leq
612612 have e₁ := lift_mk_eq'.mpr ⟨.equivCongr (.refl α) e⟩
613613 have e₂ := lift_mk_eq'.mpr ⟨.arrowCongr (.refl α) e⟩
614- rw [lift_id'.{u,v}] at e₁ e₂
614+ rw [lift_id'.{u, v}] at e₁ e₂
615615 rw [← e₁, ← e₂, lift_inj, mk_perm_eq_self_power, power_def]
616616
617617theorem mk_equiv_eq_arrow_of_eq (eq : #α = #β) : #(α ≃ β) = #(α → β) :=
618618 mk_equiv_eq_arrow_of_lift_eq congr(lift $eq)
619619
620620theorem mk_equiv_of_lift_eq (leq : lift.{v} #α = lift.{u} #β') : #(α ≃ β') = 2 ^ lift.{v} #α := by
621- erw [← (lift_mk_eq'.2 ⟨.equivCongr (.refl α) (lift_mk_eq'.1 leq).some⟩).trans (lift_id'.{u,v} _),
622- lift_umax.{u,v}, mk_perm_eq_two_power, lift_power, lift_natCast]; rfl
621+ erw [← (lift_mk_eq'.2 ⟨.equivCongr (.refl α) (lift_mk_eq'.1 leq).some⟩).trans (lift_id'.{u, v} _),
622+ lift_umax.{u, v}, mk_perm_eq_two_power, lift_power, lift_natCast]; rfl
623623
624624theorem mk_equiv_of_eq (eq : #α = #β) : #(α ≃ β) = 2 ^ #α := by
625625 rw [mk_equiv_of_lift_eq (lift_inj.mpr eq), lift_id]
@@ -640,7 +640,7 @@ theorem mk_surjective_eq_arrow_of_lift_le (lle : lift.{u} #β' ≤ lift.{v} #α)
640640 #{f : α → β' | Surjective f} = #(α → β') :=
641641 (mk_set_le _).antisymm <|
642642 have ⟨e⟩ : Nonempty (α ≃ α ⊕ β') := by
643- simp_rw [← lift_mk_eq', mk_sum, lift_add, lift_lift]; rw [lift_umax.{u,v}, eq_comm]
643+ simp_rw [← lift_mk_eq', mk_sum, lift_add, lift_lift]; rw [lift_umax.{u, v}, eq_comm]
644644 exact add_eq_left (aleph0_le_lift.mpr <| aleph0_le_mk α) lle
645645 ⟨⟨fun f ↦ ⟨fun a ↦ (e a).elim f id, fun b ↦ ⟨e.symm (.inr b), congr_arg _ (e.right_inv _)⟩⟩,
646646 fun f g h ↦ funext fun a ↦ by
0 commit comments