let areequal (lhs : nodeid) (rhs : nodeid) : unit =
let graph = cur_graph () in
let has_inbound x = Hashtbl.length x.inb > 0 in
let lhs_node = try Hashtbl.find graph lhs with Not_found -> raise (BadIdent lhs) in
let rhs_node = try Hashtbl.find graph rhs with Not_found -> raise (BadIdent rhs) in
let lhs_lang, rhs_lang = lhs_node.lang, rhs_node.lang in
if has_inbound lhs_node then
inbound_warning lhs;
if has_inbound rhs_node then
inbound_warning rhs;
if Languageops.lang_eq lhs_lang rhs_lang then
bool_yes ()
else
bool_no ()