0e49576fe4
This PR makes `#guard_msgs` to treat `trace` messages separate from `info`, `warning` and `error`. It also introduce the ability to say `#guard_msgs (pass info`, like `(drop info)` so far, and also adds `(check info)` as the explicit form of `(info)`, for completeness. Fixes #8266
101 lines
2.3 KiB
Text
101 lines
2.3 KiB
Text
private axiom test_sorry : ∀ {α}, α
|
||
|
||
set_option trace.Elab.definition.fixedParams true
|
||
|
||
namespace Ex1
|
||
|
||
/--
|
||
error: well-founded recursion cannot be used, 'Ex1.foo' does not take any (non-fixed) arguments
|
||
---
|
||
trace: [Elab.definition.fixedParams] getFixedParams:
|
||
• ⏎
|
||
•
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
def foo : Nat := bar
|
||
def bar : Nat := foo
|
||
decreasing_by exact test_sorry
|
||
end
|
||
|
||
end Ex1
|
||
|
||
|
||
namespace Ex2
|
||
/--
|
||
error: well-founded recursion cannot be used, 'Ex2.foo' does not take any (non-fixed) arguments
|
||
---
|
||
trace: [Elab.definition.fixedParams] getFixedParams:
|
||
• [#1 #1]
|
||
• [#1 #1]
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
def foo (n : Nat) : Nat := bar n
|
||
def bar (n : Nat) : Nat := foo n
|
||
decreasing_by exact test_sorry
|
||
end
|
||
end Ex2
|
||
|
||
namespace Ex3
|
||
/--
|
||
error: well-founded recursion cannot be used, 'Ex3.foo' does not take any (non-fixed) arguments
|
||
---
|
||
trace: [Elab.definition.fixedParams] getFixedParams:
|
||
• [#1 #2] [#2 #1]
|
||
• [#2 #1] [#1 #2]
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
def foo (n : Nat) (m : Nat) : Nat := bar m n
|
||
decreasing_by all_goals exact test_sorry
|
||
def bar (n : Nat) (m : Nat) : Nat := foo m n
|
||
decreasing_by all_goals exact test_sorry
|
||
end
|
||
end Ex3
|
||
|
||
namespace Ex4
|
||
/--
|
||
trace: [Elab.definition.fixedParams] getFixedParams: notFixed 0 3:
|
||
In foo c n b m
|
||
m not matched
|
||
[Elab.definition.fixedParams] getFixedParams: • [#1 #3] ❌ [#3 #1] ❌ • [#3 #1] ❌ [#1 #3] ❌
|
||
-/
|
||
#guard_msgs in
|
||
mutual
|
||
def foo (a : Nat) (n : Nat) (d : Nat) (m : Nat) : Nat := bar d m a n
|
||
decreasing_by exact test_sorry
|
||
def bar (b : Nat) (n : Nat) (c : Nat) (m : Nat) : Nat := foo c n b m
|
||
decreasing_by exact test_sorry
|
||
end
|
||
end Ex4
|
||
|
||
namespace Append1
|
||
|
||
/--
|
||
trace: [Elab.definition.fixedParams] getFixedParams: notFixed 0 1:
|
||
In app as bs
|
||
x✝¹ =/= as
|
||
[Elab.definition.fixedParams] getFixedParams: notFixed 0 2:
|
||
In app as bs
|
||
x✝ =/= bs
|
||
[Elab.definition.fixedParams] getFixedParams: • [#1] ❌ ❌
|
||
-/
|
||
#guard_msgs(trace) in
|
||
def app : List α → List α → List α
|
||
| [], bs => bs
|
||
| a::as, bs => a :: app as bs
|
||
|
||
/--
|
||
trace: [Elab.definition.fixedParams] getFixedParams: notFixed 0 1:
|
||
In app' as bs
|
||
as✝ =/= as
|
||
[Elab.definition.fixedParams] getFixedParams: • [#1] ❌ [#3]
|
||
-/
|
||
#guard_msgs(trace) in
|
||
def app' (as : List α) (bs : List α) : List α :=
|
||
match as with
|
||
| [] => bs
|
||
| a::as => a :: app' as bs
|
||
|
||
end Append1
|