aniva/Pantograph
aniva
/
Pantograph
1
1
Fork 0
Code Issues 10 Pull Requests 1 Packages Projects Releases 1 Wiki Activity

fix: Bindings in prograde tactics #90

Merged
aniva merged 2 commits from bug/hidden-fvar-in-define into dev 2024-09-03 18:15:58 -07:00
Conversation 0 Commits 2 Files Changed 8 +7 -7
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit f8df2599f9 - Show all commits

2
Pantograph/Goal.lean
View File

@ -247,7 +247,7 @@ protected def GoalState.conv (state: GoalState) (goalId: Nat):
-- See Lean.Elab.Tactic.Conv.convTarget -- See Lean.Elab.Tactic.Conv.convTarget
let convMVar ← Elab.Tactic.withMainContext do let convMVar ← Elab.Tactic.withMainContext do
let (rhs, newGoal) ← Elab.Tactic.Conv.mkConvGoalFor (← Elab.Tactic.getMainTarget) let (rhs, newGoal) ← Elab.Tactic.Conv.mkConvGoalFor (← Elab.Tactic.getMainTarget)
Elab.Tactic.setGoals [newGoal.mvarId!] Elab.Tactic.replaceMainGoal [newGoal.mvarId!]
pure rhs.mvarId! pure rhs.mvarId!
return (← MonadBacktrack.saveState, convMVar) return (← MonadBacktrack.saveState, convMVar)
try try

2
Pantograph/Tactic/Assign.lean
View File

@ -25,7 +25,7 @@ def evalAssign : Elab.Tactic.Tactic := fun stx => Elab.Tactic.withMainContext do
(tagSuffix := .anonymous ) (tagSuffix := .anonymous )
(allowNaturalHoles := true) (allowNaturalHoles := true)
goal.assign expr goal.assign expr
Elab.Tactic.setGoals nextGoals Elab.Tactic.replaceMainGoal nextGoals
end Pantograph.Tactic end Pantograph.Tactic

6
Pantograph/Tactic/Congruence.lean
View File

@ -31,7 +31,7 @@ def congruenceArg (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do
def evalCongruenceArg: Elab.Tactic.TacticM Unit := do def evalCongruenceArg: Elab.Tactic.TacticM Unit := do
let goal ← Elab.Tactic.getMainGoal let goal ← Elab.Tactic.getMainGoal
let nextGoals ← congruenceArg goal let nextGoals ← congruenceArg goal
Elab.Tactic.setGoals nextGoals Elab.Tactic.replaceMainGoal nextGoals
def congruenceFun (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do def congruenceFun (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do
mvarId.checkNotAssigned `Pantograph.Tactic.congruenceFun mvarId.checkNotAssigned `Pantograph.Tactic.congruenceFun
@ -60,7 +60,7 @@ def congruenceFun (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do
def evalCongruenceFun: Elab.Tactic.TacticM Unit := do def evalCongruenceFun: Elab.Tactic.TacticM Unit := do
let goal ← Elab.Tactic.getMainGoal let goal ← Elab.Tactic.getMainGoal
let nextGoals ← congruenceFun goal let nextGoals ← congruenceFun goal
Elab.Tactic.setGoals nextGoals Elab.Tactic.replaceMainGoal nextGoals
def congruence (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do def congruence (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do
mvarId.checkNotAssigned `Pantograph.Tactic.congruence mvarId.checkNotAssigned `Pantograph.Tactic.congruence
@ -93,6 +93,6 @@ def congruence (mvarId: MVarId): MetaM (List MVarId) := mvarId.withContext do
def evalCongruence: Elab.Tactic.TacticM Unit := do def evalCongruence: Elab.Tactic.TacticM Unit := do
let goal ← Elab.Tactic.getMainGoal let goal ← Elab.Tactic.getMainGoal
let nextGoals ← congruence goal let nextGoals ← congruence goal
Elab.Tactic.setGoals nextGoals Elab.Tactic.replaceMainGoal nextGoals
end Pantograph.Tactic end Pantograph.Tactic

2
Pantograph/Tactic/MotivatedApply.lean
View File

@ -100,6 +100,6 @@ def motivatedApply (mvarId: MVarId) (recursor: Expr) : MetaM (Array Meta.Inducti
def evalMotivatedApply : Elab.Tactic.Tactic := fun stx => Elab.Tactic.withMainContext do def evalMotivatedApply : Elab.Tactic.Tactic := fun stx => Elab.Tactic.withMainContext do
let recursor ← Elab.Term.elabTerm (stx := stx) .none let recursor ← Elab.Term.elabTerm (stx := stx) .none
let nextGoals ← motivatedApply (← Elab.Tactic.getMainGoal) recursor let nextGoals ← motivatedApply (← Elab.Tactic.getMainGoal) recursor
Elab.Tactic.setGoals $ nextGoals.toList.map (·.mvarId) Elab.Tactic.replaceMainGoal $ nextGoals.toList.map (·.mvarId)
end Pantograph.Tactic end Pantograph.Tactic

2
Pantograph/Tactic/NoConfuse.lean
View File

@ -17,6 +17,6 @@ def evalNoConfuse: Elab.Tactic.Tactic := λ stx => do
let goal ← Elab.Tactic.getMainGoal let goal ← Elab.Tactic.getMainGoal
let h ← goal.withContext $ Elab.Term.elabTerm (stx := stx) .none let h ← goal.withContext $ Elab.Term.elabTerm (stx := stx) .none
noConfuse goal h noConfuse goal h
Elab.Tactic.setGoals [] Elab.Tactic.replaceMainGoal []
end Pantograph.Tactic end Pantograph.Tactic