rwa [hsmax ⟨ht, htcard.le⟩ hst]
case intro.intro.intro.intro.intro
𝕜 : Type u_1
E : Type u_2
inst✝² : OrderedRing 𝕜
inst✝¹ : AddCommGroup E
inst✝ : Module 𝕜 E
m n k : ℕ
K : SimplicialComplex 𝕜 E
s✝ t✝ : Finset E
A : Set (Finset E)
hK : K.Pure n
h : k ≤ n
s : Finset E
hsmax : ∀ ⦃t : Finset E⦄, t ∈ (K.skeleton k).faces → s ⊆ t → s = t
hs : s ∈ K
hscard : s.card ≤ k + 1
t : Finset E
ht : t ∈ K
hst : s ⊆ t
htcard : t.card = k + 1
⊢ s.card = k + 1
no goals