let axiom atm = 
  match !proofmode with
    | No -> Atom.Set.empty
    | Dep -> Atom.Set.singleton atm