下面是一个半工作的简单递归表示法:
Universe ARG. Definition ARG := Type@{ARG}.
Parameter X: ARG.
Notation A := (fun x:ARG->ARG => fun y:x X => y).
Parameter P: ARG -> ARG.
Parameter s: P X.
Notation "[ x .. z u ]" := (x P .. (z P u) .. ) (at level 5, z, u at next level).
Check (A P (A P (A P s))). (* [A A A s]: P X *)
Print Grammar constr.
(*| "5" RIGHTA
[ "["; NEXT; LIST1 NEXT; NEXT; "]"
| "["; NEXT; NEXT; "]" ]*)
Check [A A A s]. (* Syntax error: [constr:operconstr] or [constr:operconstr] expected (in [constr:operconstr]). *)
如您所见,Coq将A P (A P (A P s))
识别为[A A A s]: P X
,但无法解析[A A A s]
。问题在哪里,有什么问题?
编辑:Coq似乎需要一些“解析辅助工具”。例如,以下工作:
Notation "( x .. z [ u ] )" := (x P .. (z P u) .. ) (at level 5, z at next level).
Check (A A A [s]): P X.
由于我想摆脱内在的记法,问题仍未解决
答案 0 :(得分:3)
问题是Coq< = 8.7不能很好地支持格式x .. y z
的递归表示法,修复方法是下载Coq master,或者等待Coq 8.8。 Hugo Herbelin's fix, entitled Adding support for recursive notations of the form "x , .. , y , z"
,于2017年8月1日合并。