lean4-htt/tests/lean/run/968.lean
Joe Hendrix 8b0dd2e835
chore: upstream Std.Logic (#3312)
This will collect definitions from Std.Logic

---------

Co-authored-by: David Thrane Christiansen <david@davidchristiansen.dk>
Co-authored-by: Scott Morrison <scott.morrison@gmail.com>
2024-02-14 09:40:55 +00:00

7 lines
379 B
Text

example (p q r : Prop) : (p ∧ q ∧ r)
= (r ∧ p ∧ q) :=
by simp only [and_comm, and_left_comm, and_assoc]
example (p q r : Prop) : ((let_fun x := p; x) ∧ (let_fun x := q; x) ∧ (let_fun x := r; x))
= ((let_fun x := r; x) ∧ (let_fun x := p; x) ∧ (let_fun x := q; x)) :=
by simp only [and_comm, and_left_comm, and_assoc]