package lambdapi

  1. Overview
  2. Docs
Proof assistant for the λΠ-calculus modulo rewriting

Install

Dune Dependency

Authors

Maintainers

Sources

lambdapi-2.5.1.tbz
sha256=2c251021b6fac40c05282ca183902da5b1008e69d9179d7a9543905c2c21a28a
sha512=69535f92766e6fedc2675fc214f0fb699bde2a06aa91d338c93c99756235a293cf16776f6328973dda07cf2ad402e58fe3104a08f1a896990c1778b42f7f9fcf

doc/src/lambdapi.common/escape.ml.html

Source file escape.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(** Escaped identifiers ["{|...|}"]. *)
let escape : string -> string = fun s -> "{|" ^ s ^ "|}"

(** [is_escaped s] tells if [s] begins with ["{|"] and ends with ["|}"]
   without overlapping. For efficiency, we just test that it starts with
   ['{']. *)
let is_escaped : string -> bool = fun s -> s <> "" && s.[0] = '{'

(** [unescape s] removes ["{|"] and ["|}"] if [s] is an escaped identifier. *)
let unescape : string -> string = fun s ->
  if is_escaped s then String.(sub s 2 (length s - 4)) else s

(** [p] is assumed to be a regular identifier. If [n] is a regular identifier
   too, then [add_prefix p n] is just [p ^ n]. Otherwise, it is ["{|" ^ p ^
   unescape n ^ "|}"]. *)
let add_prefix : string -> string -> string = fun p n ->
  if is_escaped n then escape (p ^ unescape n) else p ^ n

(** [s] is assumed to be a regular identifier. If [n] is a regular identifier
   too, then [add_suffix n s] is just [n ^ s]. Otherwise, it is ["{" ^
   unescape n ^ s ^ "|}"]. *)
let add_suffix : string -> string -> string = fun n s ->
  if is_escaped n then escape (unescape n ^ s)  else n ^ s
OCaml

Innovation. Community. Security.