Commit cb4a6b53 authored by POTTIER Francois's avatar POTTIER Francois

Added [disjoint].

parent f19a02dc
......@@ -144,15 +144,24 @@ end
let ba : nominal_term -> Atom.Set.t =
new ba # visit_term ()
let ba_list ts =
List.fold_left
(fun accu t -> Atom.Set.disjoint_union accu (ba t))
Atom.Set.empty ts
(* [wf t] checks whether the term [t] is well-formed, and returns no result.
The exception [IllFormed x] is raised if the atom [x] occurs twice in a
binding position.*)
binding position. *)
let wf t =
let (_ : Atom.Set.t) = ba t in ()
(* TEMPORARY add a disjointness check; this boils down to checking that a
list of terms is well-formed. *)
(* [disjoint ts] checks that the terms in the list [ts] are well-formed and
disjoint. The exception [IllFormed x] is raised if the atom [x] occurs
twice in a binding position. *)
let disjoint ts =
let (_ : Atom.Set.t) = ba_list ts in ()
(* -------------------------------------------------------------------------- *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment