max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix(init/meta): fix build

Browse source
This commit is contained in:
Sebastian Ullrich 2017-06-22 10:58:54 +02:00 • committed by Leonardo de Moura
parent 47c3c0ba84
commit 4d5d2abcba
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
library/init/meta/smt/interactive.lean
View file

@ -22,7 +22,7 @@ meta def step {α : Type} (tac : smt_tactic α) : smt_tactic unit :=
tac >> solve_goals
meta def istep {α : Type} (line0 col0 line col : nat) (tac : smt_tactic α) : smt_tactic unit :=
λ ss ts, (@scope_trace _ line col ((tac >> solve_goals) ss ts)).clamp_pos line0 line col
λ ss ts, (@scope_trace _ line col (λ _, (tac >> solve_goals) ss ts)).clamp_pos line0 line col
meta def execute (tac : smt_tactic unit) : tactic unit :=
using_smt tac

2
library/init/meta/tactic.lean
View file

@ -477,7 +477,7 @@ meta def step {α : Type u} (t : tactic α) : tactic unit :=
t >>[tactic] cleanup
meta def istep {α : Type u} (line0 col0 : ℕ) (line col : ℕ) (t : tactic α) : tactic unit :=
λ s, (@scope_trace _ line col (step t s)).clamp_pos line0 line col
λ s, (@scope_trace _ line col (λ _, step t s)).clamp_pos line0 line col
meta def is_prop (e : expr) : tactic bool :=
do t ← infer_type e,