rcases h with ⟨b⟩
S : Type u_1
F : Type u_2
inst✝³ : LogicalConnective F
inst✝² : System F S
inst✝¹ : Cons F S
inst✝ : Deduction S
p q : F
𝓢 : S
h : cons p 𝓢 ⊢! q
⊢ 𝓢 ⊢! p ⟶ q
case intro
S : Type u_1
F : Type u_2
inst✝³ : LogicalConnective F
inst✝² : System F S
inst✝¹ : Cons F S
inst✝ : Deduction S
p q : F
𝓢 : S
b : cons p 𝓢 ⊢ q
⊢ 𝓢 ⊢! p ⟶ q