14 lines
380 B
Text
14 lines
380 B
Text
set_option new_elaborator true
|
|
open tactic nat
|
|
|
|
example (a b c : Prop) : a → b → ¬ a → c :=
|
|
by do intros, contradiction
|
|
|
|
example (a b c : Prop) : a → false → b → c :=
|
|
by do intros, contradiction
|
|
|
|
example (a b : nat) : succ a = 0 → b = 0 :=
|
|
by do intro `H, contradiction
|
|
|
|
example (a b : nat) : succ a = succ b → succ a = 0 → b = 0 :=
|
|
by do intros, contradiction
|