import Spec.Courseware.Lesson
import Spec.Courseware.Render

/-!
# Diagnostic —— checker 诊断(种子)

产品里"站在 Lean 位置"的那个 rule-based checker,语义在此沉淀。它对 lesson 提诊断,
每条诊断有**严重级别**。本模块固定级别类型,并落第一条规则——ADR-0005 钉死的"缺
渲染 ⇒ warning"。完整的"合法 lesson"判定仍 OPEN,本模块只是它的起点。
-/

namespace Spec.Courseware

/--
诊断的严重级别(`PINNED` 二分, ADR-0005 区分 warning 与阻断)。

`error` 阻断(产物不合法),`warning` 不阻断(产物仍可导出,只是有损/有忽略)。
ADR-0005 已用到这个区分:缺渲染是 warning 而非 error。更细的级别(info/hint)未
决策,故只二分。
-/
inductive Severity where
  | warning
  | error

variable (P : Primitives)

/--
**缺渲染诊断**:lesson 在 target `t` 下存在无法渲染的 element(`PINNED`, ADR-0005)。

成立 ⟺ 存在某 element,其 kind 在 `t` 下未配渲染规则。这条对应 checker 的第一条
诊断;其级别由下面的 `renderIgnoredSeverity` 钉死为 **warning**。
-/
def renderIgnored (l : Lesson P) (c : RenderConfig P) (t : P.TargetId) : Prop :=
  ∃ e ∈ l, ¬ c.covers e.kind t

/--
缺渲染诊断的级别 = **warning**(`PINNED`, ADR-0005,**非 error**)。

ADR-0005 明确:某 (kind, target) 无渲染规则时,checker 报 warning 说该 element 在
该 target 被忽略,**不阻断导出**。把这条决策固定为一个常量,使"它是 warning 不是
error"成为契约里可被引用、可被对齐的事实,而不是散落在 prose 里的口头约定。
-/
def renderIgnoredSeverity : Severity := .warning

end Spec.Courseware