fix: Prevent incorrect inheritance of calc rhs #66
|
@ -129,7 +129,8 @@ def execute (command: Protocol.Command): MainM Lean.Json := do
|
||||||
pure ( Except.ok (← goalConv goalState args.goalId))
|
pure ( Except.ok (← goalConv goalState args.goalId))
|
||||||
| .none, .none, .none, .none, .some false => do
|
| .none, .none, .none, .none, .some false => do
|
||||||
pure ( Except.ok (← goalConvExit goalState))
|
pure ( Except.ok (← goalConvExit goalState))
|
||||||
| _, _, _, _, _ => pure (Except.error <| errorI "arguments" "Exactly one of {tactic, expr, have} must be supplied")
|
| _, _, _, _, _ => pure (Except.error <|
|
||||||
|
errorI "arguments" "Exactly one of {tactic, expr, have, calc, conv} must be supplied")
|
||||||
match nextGoalState? with
|
match nextGoalState? with
|
||||||
| .error error => return .error error
|
| .error error => return .error error
|
||||||
| .ok (.success nextGoalState) =>
|
| .ok (.success nextGoalState) =>
|
||||||
|
|
Loading…
Reference in New Issue