module Cf_machine:sig..end
This module extends Cf_state_gadget with an object-oriented framework.
The idea is to facilitate reuse of gadget monads among related processes by
class inheritance.
class virtual[['i, 'o]]start :object..end
inherit ['i, 'o] start to derive a class to represent the
initial state of a machine.
class virtual[['i, 'o]]next :object..end
inherit ['i, 'o] next to derive a class that implements an
intermediate state in a machine.