24 lines
473 B
Text
24 lines
473 B
Text
|
open nat
|
||
|
|
set_option blast.init_depth 10
|
||
|
|
set_option blast.max_depth 10
|
||
|
|
|
||
|
|
lemma l1 (a : nat) : zero = succ a → a = a → false :=
|
||
|
|
by blast
|
||
|
|
|
||
|
|
lemma l2 (p : Prop) (a : nat) : zero = succ a → a = a → p :=
|
||
|
|
by blast
|
||
|
|
|
||
|
|
lemma l3 (a b : nat) : succ (succ a) = succ (succ b) → a = b :=
|
||
|
|
by blast
|
||
|
|
|
||
|
|
lemma l4 (a b : nat) : succ a = succ b → a = b :=
|
||
|
|
by blast
|
||
|
|
|
||
|
|
lemma l5 (a b c : nat) : succ (succ a) = succ (succ b) → c = c :=
|
||
|
|
by blast
|
||
|
|
|
||
|
|
reveal l3 l4 l5
|
||
|
|
print l3
|
||
|
|
print l4
|
||
|
|
print l5
|