diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/SubstantialRelation.ml | 2 | ||||
| -rw-r--r-- | lib/kernel/SubstantialRelation.mli | 8 |
2 files changed, 0 insertions, 10 deletions
diff --git a/lib/kernel/SubstantialRelation.ml b/lib/kernel/SubstantialRelation.ml index b94e2f8..090568f 100644 --- a/lib/kernel/SubstantialRelation.ml +++ b/lib/kernel/SubstantialRelation.ml @@ -147,8 +147,6 @@ module Make (S : Abstract.Storage.STORAGE) = struct [ Concepts.Mode.enumerable Concepts.Cardinality.Finite; {Concepts.Mode.bound= Concepts.Mode.attributes_of_map description; affords= Decides} ] - let modes tx relation = schema_of tx relation |> Result.map modes_of - class relation storage value description = object (self) inherit Lifecycle.null diff --git a/lib/kernel/SubstantialRelation.mli b/lib/kernel/SubstantialRelation.mli index 73a06c7..a36c802 100644 --- a/lib/kernel/SubstantialRelation.mli +++ b/lib/kernel/SubstantialRelation.mli @@ -53,12 +53,4 @@ module Make (S : Abstract.Storage.STORAGE) : sig (Protocols.Schematics.relation_description, Concepts.Condition.condition) result val enumerate : S.connection -> t -> (Protocols.Handle.t, Concepts.Condition.condition) result - - val generate : - S.connection -> - t -> - Protocols.Generative.binding -> - (Protocols.Handle.t, Concepts.Condition.condition) result - - val modes : S.transaction -> t -> (Concepts.Mode.t, Concepts.Condition.condition) result end |