26 lines
684 B
Text
26 lines
684 B
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
|
||
|
||
example (a : list nat) : a = [1, 2] → a^.for nat.succ = [2, 3] :=
|
||
begin
|
||
intros,
|
||
simp [list.for, flip],
|
||
check_target `(list.map nat.succ a = [2, 3]),
|
||
subst a,
|
||
simp [list.map],
|
||
check_target `([nat.succ 1, nat.succ 2] = [2, 3]),
|
||
reflexivity
|
||
end
|
||
|
||
constant f {α : Type} [has_zero α] (a b : α) : a ≠ 0 → b ≠ 0 → α
|
||
axiom fax {α : Type} [has_zero α] (a : α) : f a = λ b h₁ h₂, a
|
||
|
||
lemma ex : f 1 2 dec_trivial dec_trivial = 1 :=
|
||
begin
|
||
simp [fax]
|
||
end
|