lean4-htt/tests/lean/run/simp_arrow.lean

7 lines
135 B
Text

example (p q : Prop) (h₀ : q) : ∀ (h : p ∧ true), q :=
begin
simp, intros,
trace_state,
guard_hyp h := p,
exact h₀
end