fact: Definition contract_iso_lr `(c1 : contract i Ω1) `(c2 : contract i Ω2) (equ : contract_equ c1 c2) (ω1 : Ω1) : Ω2 := match equ with | @mk_contract_equ _ _ _ _ _ f _ _ _ _ _ _ => f ω1 end.
imports: Coq(Setoid Morphisms) ExtLib(StateMonad MonadState MonadTrans) FreeSpec.Core(Interface Impure Semantics Component)