set_option trace.blast true
example (p q : Prop) : p ∨ q → q ∨ p :=
by blast
definition lemma1 (p q r s : Prop) (a b : nat) : r ∨ s → p ∨ q → a = b → q ∨ p :=
print lemma1
