program natjecanje;

var
   n, r, s, i, x, rj : integer;
   nemaju, imaju : array[0 .. 11] of boolean;

begin
   readln (n, s, r);
   for i := 1 to s do begin
      read (x); nemaju[x] := true;
   end;
   readln;
   for i := 1 to r do begin
      read (x); imaju[x] := true;
   end;
   readln;
   for i := 1 to n do
      if imaju[i] then
         if nemaju[i] then begin
            imaju[i] := false; nemaju[i] := false;
         end;
   for i := 2 to n do
      if imaju[i] then
         if nemaju[i-1] then begin
            imaju[i] := false; nemaju[i-1] := false;
         end;
   for i := 1 to n-1 do
      if imaju[i] then
         if nemaju[i+1] then begin
            imaju[i] := false; nemaju[i+1] := false;
         end;
   for i := 1 to n do
      if nemaju[i] then Inc (rj);
   writeln (rj);
end.