fact: Definition EvalSignals (sc : SpecificationCase) (st : State.t) : Prop := let s := CASE.signals sc in forall e, Exception e = Frame.ret st@fr -> let fr' := (Frame.set_param st@fr (SIGNALS.exception s) (Ref e)) in match SIGNALS.pred s with | (:expr:) => EvalPredicate expr st[fr:=fr'] | \not_specified => NotSpecifiedSignals end.
imports: Coq(List) Coq(ListSet) Coq(FSetInterface) Coq(Bool) Coq(ZArith) Coq(Relation_Operators) JML(ListHelpers)