fact: Definition trace_state_correct (trace : list (input * output)) (st : data) (st' : data) := forall k, fst (interpret k (rev (inputs_with_key trace k)) (Map.find k st)) = Map.find k st'.
imports: Verdi(Verdi) Coq(FMapList String) Verdi(FMapVeryWeak StateMachineHandlerMonad)