let pop f = 
    match !stack with
      | [] -> Wp_parameters.fatal "Logic.cofix: empty stack"
      | f0::stk ->
          if LogicId.equal f f0 then stack := stk
          else Wp_parameters.fatal "Logic.cofix: corrupted stack"