2015-11-14 02:19:05 +00:00
|
|
|
import data.list
|
|
|
|
open list
|
2015-12-06 02:17:15 +00:00
|
|
|
set_option blast.strategy "preprocess"
|
2015-11-14 02:19:05 +00:00
|
|
|
|
|
|
|
example (p : Prop) (a b c : nat) : [a, b, c] = [] → p :=
|
|
|
|
by blast
|
|
|
|
|
|
|
|
lemma l1 (a b c d e f : nat) : [a, b, c] = [d, e, f] → a = d ∧ b = e ∧ c = f :=
|
|
|
|
by blast
|
|
|
|
|
|
|
|
reveal l1
|
|
|
|
print l1
|