(* *)
(***********************************************************************)
+(*
+ Time-stamp: <Last modified on 2013-02-04 16:04:03 CET by Kim Nguyễn>
+*)
+
(** Implementation of hashconsed Boolean formulae *)
type move = [ `Left | `Right | `Epsilon | `Up1 | `Up2 ]
| True
| Or of 'formula * 'formula
| And of 'formula * 'formula
- | Move of move * bool * State.t
+ | Atom of move * bool * State.t
(** View of the internal representation of a formula,
used for pattern matching *)