42 lines
1 KiB
Text
42 lines
1 KiB
Text
open tactic
|
|
|
|
meta def check_expr (p : pexpr) (t : expr) : tactic unit :=
|
|
do e ← to_expr p, guard (expr.alpha_eqv t e)
|
|
|
|
meta def check_target (p : pexpr) : tactic unit :=
|
|
do t ← target, check_expr p t
|
|
|
|
set_option trace.smt.ematch true
|
|
|
|
example (a : list nat) (f : nat → nat) : a = [1, 2] → a^.for f = [f 1, f 2] :=
|
|
begin [smt]
|
|
intros,
|
|
ematch_using [list.for],
|
|
ematch_using [flip],
|
|
ematch_using [list.map],
|
|
ematch_using [list.map],
|
|
ematch_using [list.map]
|
|
end
|
|
|
|
example (a : list nat) (f : nat → nat) : a = [1, 2] → a^.for f = [f 1, f 2] :=
|
|
begin [smt]
|
|
intros,
|
|
repeat {ematch_using [list.for, flip, list.map], try { close }},
|
|
end
|
|
|
|
attribute [ematch] list.map flip list.for
|
|
|
|
example (a : list nat) (f : nat → nat) : a = [1, 2] → a^.for f = [f 1, f 2] :=
|
|
begin [smt]
|
|
intros, eblast
|
|
end
|
|
|
|
constant f : nat → nat → nat
|
|
constant g : nat → nat → nat
|
|
axiom fgx : ∀ x y, (: f x :) = (λ y, y) ∧ (: g y :) = λ x, 0
|
|
attribute [ematch] fgx
|
|
|
|
example (a b c : nat) : f a b = b ∧ g b c = 0 :=
|
|
begin [smt]
|
|
ematch
|
|
end
|