let lock xdef = if Hdef.mem lock xdef then ( Wp_parameters.not_yet_implemented "Recursive definition (in '%a')" !Ast_printer.d_logic_var xdef ) ; Hdef.add lock xdef ()