/-!
# 基元

课程模型要谈"element、lesson、target 之间的关系",但每个基元本身(element kind
怎么标识、kind 的数据 schema 长什么样、target 怎么标识)的内部表示是实现的事。
这里把它们收成一组抽象基元,让模型在它们之上参数化。

契约只钉基元之间的关系;基元内部用什么表示,留给实现。
-/

namespace Spec.Courseware

/-- 课程模型的一组抽象基元:关系已定,内部表示留给实现(ADR-0005、ADR-0006)。 -/
structure Primitives where
  /-- element kind 的标识。kind 是开放宇宙:stdlib 加第三方都可加,不是封闭枚举
      (ADR-0005)。表示方式留给实现。 -/
  KindId : Type
  /-- 某 kind 的合法数据类型,以 kind 为索引:`ElementData k` 就是"符合 k 的 schema
      的数据"。schema 用声明式 JSON Schema,带 content 叶子(ADR-0006);JSON Schema
      的内部结构是实现细节,不进契约,契约只钉"数据要符合 kind 的 schema"这条关系。 -/
  ElementData : KindId → Type
  /-- export target 的标识。一个 target 是一次 build,产出对 lesson 的一种投影
      (讲义、教案、PPT、平台归档等),见 Render。 -/
  TargetId : Type

end Spec.Courseware