--記録の無矛盾条件は、
--Tが単調増加、Aが単調減少で,
--かつ、両者が一致するところでは両者の最大値をとることである。
--単調性は保証されているので、エラーの検出は、両者の値が一致した時に、それが最大なことを見る。
--最高高さ記録のタプルの要素に対して、これが正しいとき、
--記録の大きい側は参考にならないので無視する。
--記録の小さい方について、0から初めて、真に値が増加するとき、その高さはその値であるので、場合の数は×１である。
--小さい方の記録が変化しないとき、その山は今までの記録だけの可能性があるので、場合の数は×記録値である。

divider::[(Int,Int)]->([(Int,Int)],[(Int,Int)],[(Int,Int)])
divider [] = ([],[],[])
divider xs =  let (a,ys) = (span (\(t,a)->t <a) xs) in
              let (b,c ) = (span (\(t,a)->t==a) ys) in (a,b,c)


--最初のt<a区間：エラー検出は、aが変化する時。記録は１以上なので、初期値は０だとして、これで先頭を処理する。
solver1::[(Int,Int)]->(Int,Int)-> Int
solver1 []         _             = 1
solver1 ((t,a):xs) (old_t,old_a) = if (old_a /=0)&&(old_a /= a) then 0
                                                                else if t > old_t then 1 * (solver1 xs (t,a))
                                                                                  else mod (t * (solver1 xs (t,a))) 1000000007
--一致区間
solver2::[(Int,Int)]->Int
solovr2 []        =0
solver2 (_:[])    =1
solver2 (_:_:[])  =1
solver2 ((t,a):xs)= if t==a then mod (t * (solver2 xs) ) 1000000007 else 0

solver3::[(Int,Int)]->(Int,Int)->Int
solver3 dat  (t,a) =solver1 (reverse (map (\(t,a)->(a,t)) dat)) (t,a)

solver_tot::[(Int,Int)]->Int
solver_tot xs = let (dat1,dat2,dat3) = divider xs in mod ((solver1 dat1 (0,0))*(solver2 dat2)*(solver3 dat3 (0,0))) 1000000007

main::IO()
main = do
  _<-getLine
  ts<-getLine
  as<-getLine
  let dat = (zip  (map read (words ts)) (map read (words as))) :: [(Int,Int)]
  print (solver_tot dat)
