38 lines
970 B
Text
38 lines
970 B
Text
import Lean.Meta.Sym
|
|
|
|
macro "gen_term" n:num : term => do
|
|
let mut stx ← `(True)
|
|
for _ in 0...n.getNat do
|
|
stx := ← `(let z : Nat := x + y; let y := y + 1; have : y >= 0 := Nat.zero_le y; forall x : Nat, $stx)
|
|
`(let z : Nat := 0 ; forall x : Nat, forall y : Nat, $stx)
|
|
|
|
open Lean Meta Sym Elab Tactic
|
|
|
|
def test (mvarId : MVarId) : MetaM MVarId := do
|
|
SymM.run' do
|
|
let goal ← mkGoal mvarId
|
|
let (_, goal) ← intros goal
|
|
return goal.mvarId
|
|
|
|
/--
|
|
trace: z✝² : Nat := 0
|
|
x✝² y✝² : Nat
|
|
z✝¹ : Nat := x✝² + y✝²
|
|
y✝¹ : Nat := y✝² + 1
|
|
this✝¹ : y✝¹ ≥ 0 := Nat.zero_le y✝¹
|
|
x✝¹ : Nat
|
|
z✝ : Nat := x✝¹ + y✝¹
|
|
y✝ : Nat := y✝¹ + 1
|
|
this✝ : y✝ ≥ 0 := Nat.zero_le y✝
|
|
x✝ : Nat
|
|
⊢ True
|
|
-/
|
|
#guard_msgs in
|
|
example : gen_term 2 := by
|
|
run_tac liftMetaTactic1 fun mvarId => test mvarId
|
|
trace_state
|
|
constructor
|
|
|
|
example : gen_term 70 := by
|
|
run_tac liftMetaTactic1 fun mvarId => test mvarId
|
|
constructor
|