fact: Fixpoint computation_execute {A:Type} (op: Mult_op A) (c : computation) := match c with | Return x => x | Mult x y k => computation_execute op (k (x * y)) end.
imports: Coq(Relations RelationClasses Lia List) Param(Param) additions(More_on_positive)