forked from bai/curriculum-project-hub
sjfhsjfh
3ebe4b754d
Remove filler/redundant patterns: 钉死/钉, 本模块, likec4 画不出/画得出, 臆造, 散文, 分歧点测试, 纯 plumbing, 恰好, 留白, 宪法第N条, 刻意. No code definitions changed, only doc comments.
59 lines
2.9 KiB
Lean4
59 lines
2.9 KiB
Lean4
/-!
|
|
# Info —— 课时元信息:canonical 模型 vs 撰写态(authoring surface)
|
|
|
|
`[info]`(标题、作者)大多是 passthrough 元数据(ADR-0008),本不入契约。但**作者的
|
|
基数**是一个真分歧点:一节课可由多人(教研组)署名,故 canonical 模型里 author 是一个
|
|
**有序列表**,不是单值或可选单值。
|
|
|
|
另一条模式:on-disk 的**撰写态**(用户实际填写的形态)是**语法糖**——单作者可写
|
|
`author = "…"`,多作者写 `author = ["…", "…"]`——但这个"字符串或数组"的二态**只活在加载
|
|
边界**:`RawInfo` 经归一化折叠成 canonical `Info`,其后不再出现。canonical 接收端始终是
|
|
`List String`,raw 形式不泄漏进模型其余部分。这正是 `Info`(canonical)与 `RawInfo`
|
|
(撰写态)两个结构存在的理由。
|
|
-/
|
|
|
|
namespace Spec.Courseware
|
|
|
|
/-- 作者的**撰写态形式**(`PINNED` 仅填写便利, ADR-0008)。on-disk 单作者可写裸
|
|
字符串、多作者写数组——填写便利,非语义分歧。此 union **只活在加载边界**,经
|
|
`RawAuthor.normalize` 折叠后不再出现。 -/
|
|
inductive RawAuthor where
|
|
/-- 单作者裸字符串 `author = "…"`。 -/
|
|
| one (name : String)
|
|
/-- 多作者数组 `author = ["…", "…"]`。 -/
|
|
| many (names : List String)
|
|
|
|
/-- raw 作者归一化为**有序作者列表**(`PINNED`, ADR-0008)。单作者 ⇒ 单元素列表;数组
|
|
⇒ 原样。canonical 接收端始终是 `List String`。 -/
|
|
def RawAuthor.normalize : RawAuthor → List String
|
|
| .one n => [n]
|
|
| .many ns => ns
|
|
|
|
/-- 课时元信息的 **canonical 模型**(`PINNED` author 为列表, ADR-0008)。`authors` 是
|
|
**有序列表**:多人署名第一类,空列表 = 未署名。`title` 等其余字段是 passthrough 元数据,
|
|
不在此承诺更多。这是系统其余部分唯一所见的形态——author 在此**已**是列表,不再是
|
|
"字符串或数组"。 -/
|
|
structure Info where
|
|
/-- 标题(passthrough 元数据)。 -/
|
|
title : String
|
|
/-- 作者**有序列表**(空 = 未署名)。canonical 始终是列表。 -/
|
|
authors : List String
|
|
|
|
/-- 撰写态的 `[info]`(`PINNED` 仅填写便利, ADR-0008)。`author` 用 `RawAuthor`
|
|
(字符串或数组),`author` 缺省即未署名。此结构刻画"为便于填写而存在的 raw 形态",
|
|
**不**是模型其余部分流通的形式——它经 `RawInfo.toInfo` 归一化为 canonical `Info`。 -/
|
|
structure RawInfo where
|
|
/-- 标题。 -/
|
|
title : String
|
|
/-- 作者 raw 形式(可选;缺省即未署名)。 -/
|
|
author : Option RawAuthor
|
|
|
|
/-- raw `[info]` 归一化为 canonical `Info`(`PINNED` 加载边界归一化, ADR-0008)。缺省
|
|
author ⇒ 空列表,否则按 `RawAuthor.normalize`。raw 的"字符串或数组"二态在此被消解,
|
|
**不**泄漏进 `Info`——canonical 接收端恒为 `List String`。 -/
|
|
def RawInfo.toInfo (r : RawInfo) : Info :=
|
|
{ title := r.title
|
|
authors := (r.author.map RawAuthor.normalize).getD [] }
|
|
|
|
end Spec.Courseware
|