X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fformula.mli;h=04b36622949e4f0442179ae62f280e7609d8c475;hp=78edcfcb0b7e8350dcf4967eb88e78c1a5870fa2;hb=e2dcfc3066d33b814d4e9724563cc5b3e696060d;hpb=54b9cdaa6686eb28a0cad0ac3f1648f115d3fac5

diff --git a/src/formula.mli b/src/formula.mli
index 78edcfc..04b3662 100644
--- a/src/formula.mli
+++ b/src/formula.mli
@@ -24,8 +24,7 @@ type 'formula expr =
   | True
   | Or of 'formula * 'formula
   | And of 'formula * 'formula
-  | Move of (move * bool * State.t)
-  | Label of QNameSet.t
+  | Move of move * bool * State.t
 
 (** View of the internal representation of a formula,
     used for pattern matching *)
@@ -80,14 +79,3 @@ val and_ : t -> t -> t
 
 val of_bool : bool -> t
 (** Convert an ocaml Boolean value to a formula *)
-
-module Infix : sig
-  val ( +| ) : t -> t -> t
-  val ( *& ) : t -> t -> t
-  val ( *+ ) : move -> StateSet.elt -> t
-  val ( *- ) : move -> StateSet.elt -> t
-end
-(** Module to facilitate infix notations of formulae.
-    Just [open Formla.Infix] and write:
-    [let f = `Left *+ q1 +| `Right *+ q2 in ...]
-*)