2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department of the University of Bologna, Italy.
8 \ / This file is distributed under the terms of the
9 \ / GNU General Public License Version 2
10 V_____________________________________________________________*)
17 include "turing/universal/copy.ma".
23 if is_true(current) (* current state is final *)
35 if is_marked(current) = false (* match ok *)
48 case bit false: move_tape_l
49 case bit true: move_tape_r
50 case null: adv_to_grid_l; move_l; adv_to_grid_l;