X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fata.mli;h=6b4c02a110ace04876802f329c3fead8d0da26de;hp=2676923656857fba902522e0ba60de71c6cff636;hb=88375a854dab33de2193a7da5be652ae50f2ca64;hpb=be588f7af67f6b24aa423ff374c0f1c058e64951

diff --git a/src/ata.mli b/src/ata.mli
index 2676923..6b4c02a 100644
--- a/src/ata.mli
+++ b/src/ata.mli
@@ -100,6 +100,15 @@ val get_trans : t -> QNameSet.elt -> StateSet.t -> TransList.t
 val print : Format.formatter -> t -> unit
 (** Pretty printing of the automaton *)
 
+val copy : t -> t
+(** [copy a] creates a copy of automaton [a], that is a new automaton with
+    the same transitions but with fresh states, such that [get_states a] and
+    [get_states (copy a)] are distinct
+*)
+val concat : t -> t -> t
+(** [concat a a'] creates a new automaton [a''] such that, given a set of tree
+    nodes [N], [a'' N = a' (a N)].
+*)
 
 module Builder :
 sig