fact: Definition rewriteSignalsOnly (sc:SpecificationCase) : SpecificationCase := let soTypes := SIGNALS_ONLY.types (CASE.signalsOnly sc) in let soExpr := desugarSignalsOnly soTypes in let sExpr := match SIGNALS.pred (CASE.signals sc) with | NotSpecified => true'%jml | Specified e => e end in let signals' := SIGNALS.Build_t (: sExpr &&' soExpr :)%jml in CASE.setSignals sc signals'.
imports: JML(JMLBasic2Minimal) JML(JMLSyntax) Coq(List)