let replace_context (g : graph) : unit =
  match !solverstate with
    | x::xs -> solverstate := (Single g)::xs
    | _ -> failwith "Lack of context"