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"