From a20dcc098925dfa214aadd9ce9ee44ab3072655d Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Thu, 1 Oct 2026 00:30:02 -0300 Subject: FOL program encoding and decoding --- lib/kernel/Path.ml | 2 ++ lib/kernel/Path.mli | 2 ++ 2 files changed, 4 insertions(+) (limited to 'lib/kernel') diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml index 77a6b54..eeef396 100644 --- a/lib/kernel/Path.ml +++ b/lib/kernel/Path.ml @@ -2,6 +2,8 @@ type t = string list let this = [] let ( @/ ) x y = x :: y +let of_list segments = segments +let to_list path = path let to_string path = path diff --git a/lib/kernel/Path.mli b/lib/kernel/Path.mli index 198ef83..571e59c 100644 --- a/lib/kernel/Path.mli +++ b/lib/kernel/Path.mli @@ -2,6 +2,8 @@ type t val this : t val ( @/ ) : string -> t -> t +val of_list : string list -> t +val to_list : t -> string list val lookup : Protocols.Handle.t -> t -> (Protocols.Handle.t, Concepts.Condition.condition) result val update : -- cgit v1.2.3