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 ()