fact: Fixpoint outputs_m (tr : list (name * (@input PB_base_params + list (@output PB_base_params)))) : list (@output base_params) := match tr with | [] => [] | (Primary, inr l) :: tr' => filterMap (fun x => match x with | RequestResponse i os => Some os | _ => None end) l ++ outputs_m tr' | _ :: tr' => outputs_m tr' end.
imports: Verdi(Verdi HandlerMonad)