forked from EduCraft/curriculum-project-hub
38 lines
1.5 KiB
Lean4
38 lines
1.5 KiB
Lean4
import Spec.Prelude
|
|
import Spec.System.Agent.Run
|
|
|
|
/-!
|
|
# Lock —— 项目锁与排他不变式
|
|
|
|
ADR-0002 的核心:防止并发 Claude 同改一个项目,锁的 **owner 是当前 `AgentRun`**
|
|
(不是 teacher / chat / session)。本模块把这条决策编码进类型,并钉死那条
|
|
likec4 画不出的语义不变式——**持锁者必为非终止 run**。
|
|
-/
|
|
|
|
namespace Spec.System
|
|
|
|
variable (I : Identifiers)
|
|
|
|
/-- 项目级锁(`PINNED`, ADR-0002)。`owner : RunId`(非 SessionId/Principal)从类型
|
|
上编码"lock owner = run_id":锁不可能被 session / teacher 持有。 -/
|
|
structure ProjectAgentLock where
|
|
/-- 作用域:项目级(`PINNED`, ADR-0002 `scope = project_id`)。 -/
|
|
scope : I.ProjectId
|
|
/-- 持有者:一个 run(`PINNED`, ADR-0002 `owner = run_id`)。 -/
|
|
owner : I.RunId
|
|
|
|
/-- 锁表:每项目当前持锁 run(`PINNED` 排他性, ADR-0002)。`ProjectId → Option RunId`
|
|
的结构**本身**即排他——不可能为同一项目登记两个并发 owner。 -/
|
|
def LockTable := I.ProjectId → Option I.RunId
|
|
|
|
/-- 锁表良构:**持锁者必为非终止 run**(`PINNED` 平台核心不变式, ADR-0002)。
|
|
|
|
"锁在 run 终止时释放"的逻辑等价物:若 `p` 的锁被 `r` 持有,则 `r` 不在终止态。这条
|
|
把 Lock 与 Run 耦合起来——likec4 能画"run owns lock while running",画不出"终止即
|
|
必须释放"这个约束;它正是契约相对结构图的增量。 -/
|
|
def LockTable.WellFormed
|
|
(lt : LockTable I) (statusOf : I.RunId → RunState) : Prop :=
|
|
∀ p r, lt p = some r → ¬ (statusOf r).Terminal
|
|
|
|
end Spec.System
|