my($n,$m)=split/ /,<>;
my@a=<>;
@a=(-1,@a,$n+1);
my@f=(1,1);
my$ans=1;
my$fl=2;
for(my$i=1;$i<=$m+1;$i++){
 my$l=0;
 if($a[$i]==$a[$i-1]+1){
  $ans=0;
  last;
 }else{
  $l=$a[$i]-$a[$i-1]-1;
 }
 for(my$i=$fl;$i<$l+1;$i++){
  push@f,$f[$i-2]+$f[$i-1];
  $fl++;
 }
 $ans*=$f[$l-1];
 $ans%=1000000007
}
print$ans;
