(* Token factories *)
Parameter isTokenFactory : t -> nat -> Prop.
Parameter isToken : t -> nat -> Prop.
Parameter create_token : nat -> t -> (t*t).

Axiom mergeToken : forall tok1 n1 tok2 n2 tok',
isToken tok1 n1 ->
isToken tok2 n2 ->
join tok1 tok2 tok' ->
isToken tok' (n1+n2).