method vspec s =
      if not (List.exists (fun x -> x.b_name = Common.name_of_default_behavior)
                s.spec_behavior)
      then begin
        s.spec_behavior <-
          { b_name = name_of_default_behavior;
            b_assigns = [];
            b_assumes = [];
            b_ensures = [];
          } :: s.spec_behavior
      end;
      SkipChildren