Module Total <: FORWARD.
Inductive forward'
{state: Type}
{state_R: Relation state}:
MetaState state -> MetaState state -> Prop :=
| forward_Error:
forward' Error Error
| forward_NonTerminating:
forward' NonTerminating NonTerminating
| forward_Terminating:
forall x y, x <= y -> forward' (Terminating x) (Terminating y).
Definition forward {state: Type} {state_R: Relation state} := forward'.
End Total.

Lemma Total2Partial_forward {state: Type} {state_R: Relation state}: forall ms1 ms2,
Total.forward ms1 ms2 -> Partial.forward ms1 ms2.