1- import StructuralExplainability. EvolutionProtocol.Core.Base.Ids
1+ import EvolutionProtocol.Core.Base.Ids
22
3- namespace StructuralExplainability. EvolutionProtocol.Core.Model
3+ namespace EvolutionProtocol.Core.Model
44
55/-!
66REQ:
@@ -39,7 +39,7 @@ structure RetentionPolicy (TimePoint : Type) where
3939 period : Option (TimeInterval TimePoint) := none
4040 reviewBy : Option TimePoint := none
4141 consentId :
42- Option StructuralExplainability. EvolutionProtocol.Core.Base.ConsentId := none
42+ Option EvolutionProtocol.Core.Base.ConsentId := none
4343 deriving Repr, BEq, DecidableEq
4444
4545
@@ -58,7 +58,7 @@ def RetentionExpired
5858 (policy : RetentionPolicy TimePoint)
5959 (_now : TimePoint)
6060 (consentWithdrawn :
61- StructuralExplainability. EvolutionProtocol.Core.Base.ConsentId -> Prop )
61+ EvolutionProtocol.Core.Base.ConsentId -> Prop )
6262 (legalEnded : Prop := False)
6363 (contractEnded : Prop := False)
6464 (interestEnded : Prop := False)
@@ -83,8 +83,8 @@ theorem retention_expired_of_consent_withdrawn
8383 (policy : RetentionPolicy TimePoint)
8484 (now : TimePoint)
8585 (consentWithdrawn :
86- StructuralExplainability. EvolutionProtocol.Core.Base.ConsentId -> Prop )
87- (c : StructuralExplainability. EvolutionProtocol.Core.Base.ConsentId)
86+ EvolutionProtocol.Core.Base.ConsentId -> Prop )
87+ (c : EvolutionProtocol.Core.Base.ConsentId)
8888 (hbasis : policy.basis = RetentionBasis.consentBased)
8989 (hcid : policy.consentId = some c)
9090 (hwd : consentWithdrawn c)
@@ -93,4 +93,4 @@ theorem retention_expired_of_consent_withdrawn
9393 unfold RetentionExpired
9494 simp [hbasis, hcid, hwd]
9595
96- end StructuralExplainability. EvolutionProtocol.Core.Model
96+ end EvolutionProtocol.Core.Model
0 commit comments