fact: Definition translate_ce (ce: option (bool*word)) := match ce with | None => None | Some(b,w) => Some ((if b then NotLeq else NotGeq) (List.rev w)) end.
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Converse) ATBR(DKA_Definitions) Coq(List)