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