feat(library/init/meta/tactic): add dec_trivial notation

This commit is contained in:
Leonardo de Moura 2016-11-23 11:42:57 -08:00
parent 6f0d8cb258
commit 01bc4dfcd2
3 changed files with 2 additions and 4 deletions

View file

@ -654,6 +654,8 @@ infer_type fn >>= get_pi_arity
meta def triv : tactic unit := mk_const `trivial >>= exact
notation `dec_trivial` := of_as_true (by tactic.triv)
meta def by_contradiction (H : name) : tactic expr :=
do tgt : expr ← target,
(match_not tgt >> return ())

View file

@ -1,6 +1,4 @@
open nat
notation `dec_trivial` := of_as_true (by tactic.triv)
lemma aux : ∃ x : nat, x > 10 :=
exists.intro 15 dec_trivial

View file

@ -1,7 +1,5 @@
open tactic
notation `dec_trivial` := of_as_true (by triv)
example : sizeof [tt, tt] < sizeof [tt, ff, tt] :=
dec_trivial