Module F := F.Definition forward_trace {state: Type} {state_R: Relation state}: traces state :=
  fun tr => is_fin_stream tr /\ forall n s ms, tr n = Some (s, ms) -> forward (Terminating s) ms.Definition forward_trace_with_test {state: Type} {state_R: Relation state} (P: state -> Prop) : traces state :=
  fun tr => forward_trace tr /\ exists s, begin_state tr s /\ P s.

Lemma singleton_trace_forward {state: Type} {state_R: Relation state}: forall s ms, F.forward (Terminating s) ms -> forward_trace (singleton_trace s ms).