56733b953e
this PR aligns the terminology of the code with the one use in the reference manual, as developed with and refined by @david-christiansen.
49 lines
1.5 KiB
Text
49 lines
1.5 KiB
Text
set_option linter.constructorNameAsVariable false
|
||
|
||
inductive A (n : Nat) : Type
|
||
| a : A n
|
||
| b : A n → A n
|
||
|
||
/--
|
||
error: cannot use specified measure for structural recursion:
|
||
its type is an inductive datatype
|
||
A n
|
||
and the datatype parameter
|
||
n
|
||
depends on the function parameter
|
||
n
|
||
which does not come before the varying parameters and before the indices of the recursion parameter.
|
||
-/
|
||
#guard_msgs in
|
||
def A.size (acc n : Nat) : A n → Nat
|
||
| .a => acc
|
||
| .b a' => 1 + A.size (acc + 1) n a'
|
||
termination_by structural a => a
|
||
|
||
-- Another instance reported on Zulip at
|
||
-- https://leanprover.zulipchat.com/#narrow/stream/113488-general/topic/.E2.9C.94.20Doubly-nested.20inductive/near/451204850
|
||
|
||
inductive Xn (e : Sigma.{0} (· → Type)) (α : Type) : Nat → Type where
|
||
| mk1_S {n} (x : Xn e α n) : Xn e α (n+1)
|
||
| mk2 {n} (s : e.1) (p : e.2 s → Xn e α n) : Xn e α n
|
||
|
||
/--
|
||
error: cannot use specified measure for structural recursion:
|
||
its type is an inductive datatype
|
||
Xn e (Xn e α n) m
|
||
and the datatype parameter
|
||
Xn e α n
|
||
depends on the function parameter
|
||
n
|
||
which does not come before the varying parameters and before the indices of the recursion parameter.
|
||
-/
|
||
#guard_msgs in
|
||
def Xn.zip {e α m n} : Xn e (Xn e α n) m → Xn e α (n+m+1)
|
||
| .mk1_S x => .mk1_S x.zip
|
||
| .mk2 s p => .mk2 s fun a => (p a).zip
|
||
termination_by structural x => x
|
||
|
||
def Xn.zip' {e α n m} : Xn e (Xn e α n) m → Xn e α (n+m+1)
|
||
| .mk1_S x => .mk1_S x.zip'
|
||
| .mk2 s p => .mk2 s fun a => (p a).zip'
|
||
termination_by structural x => x
|