forked from EduCraft/curriculum-project-hub
55 lines
2.4 KiB
Lean4
55 lines
2.4 KiB
Lean4
import Spec.Prelude
|
|
|
|
/-!
|
|
# ProjectWorkspace —— project explorer 与飞书建项入口(ADR-0021)
|
|
|
|
ADR-0021 把 org 后台里的"文件管理器式"项目管理收口为透明 folder + project:
|
|
folder 只负责导航、排序、层级与用量聚合,当前不是权限资源。project 仍是授权边界。
|
|
|
|
本模块只钉死会影响实现分歧的不变量:folder/project 同 org、folder 不参与权限、普通成员
|
|
从飞书群创建 project 必须受 org policy 控制。folder visibility/team policy/继承授权仍为
|
|
未来扩展,不得在当前实现中半隐式加入。
|
|
-/
|
|
|
|
namespace Spec.System
|
|
|
|
variable (I : Identifiers)
|
|
|
|
/-- Project explorer folder 的租户归属(`PINNED`, ADR-0021):folder 是 org 内透明节点。 -/
|
|
structure FolderTenancy where
|
|
/-- 被归属的 folder(`PINNED`, ADR-0021)。 -/
|
|
folder : I.FolderId
|
|
/-- folder 所属 organization(`PINNED`, ADR-0021)。 -/
|
|
organization : I.OrganizationId
|
|
|
|
/-- Project 放入 folder 的作用域(`PINNED`, ADR-0021):project 可以位于某个 folder,
|
|
但二者必须同 org。folder 不改变 project 权限。 -/
|
|
structure ProjectFolderPlacement where
|
|
/-- 被放置的 project(`PINNED`, ADR-0021)。 -/
|
|
project : I.ProjectId
|
|
/-- project 所在 folder(`PINNED`, ADR-0021)。 -/
|
|
folder : I.FolderId
|
|
|
|
/-- Project-folder placement 是良构的 iff project 与 folder 解析到同一 organization
|
|
(`PINNED`, ADR-0021)。 -/
|
|
def ProjectFolderPlacement.WellScoped
|
|
(placement : ProjectFolderPlacement I)
|
|
(projectOrg : I.ProjectId → Option I.OrganizationId)
|
|
(folderOrg : I.FolderId → Option I.OrganizationId) : Prop :=
|
|
∃ o, projectOrg placement.project = some o ∧ folderOrg placement.folder = some o
|
|
|
|
/-- Folder 当前透明(`PINNED`, ADR-0021):folder 不是权限资源,不持有 grants,移动 project
|
|
不改变 project 自身授权。未来 folder policy 若出现,必须新增显式语义而不是复用本谓词。 -/
|
|
structure FolderTransparent where
|
|
/-- 透明性命题本身;字段存在是为了让 contract 明确可引用(`PINNED`, ADR-0021)。 -/
|
|
current : True
|
|
|
|
/-- 普通 org member 是否可从 Feishu 群自助创建 project 的 org policy(`PINNED`, ADR-0021)。 -/
|
|
structure MemberProjectCreationPolicy where
|
|
/-- policy 所属 organization(`PINNED`, ADR-0021)。 -/
|
|
organization : I.OrganizationId
|
|
/-- 为 true 时普通成员可从未绑定飞书群创建 project;owner/admin 可走后台入口。 -/
|
|
membersCanCreateProjects : Bool
|
|
|
|
end Spec.System
|