let dep4 j1 j2 j3 j4 = 
  match !proofmode with
    | No -> Atom.Set.empty
    | Dep -> Atom.Set.union j1 (Atom.Set.union j2 (Atom.Set.union j3 j4))