fact: Fixpoint xfind (i j : key) (m : t A) : option A := match i, j with | _, xH => find i m | xO ii, xO jj => xfind ii jj m | xI ii, xI jj => xfind ii jj m | _, _ => None end.
imports: Bool OrderedType ZArith OrderedType OrderedTypeEx FMapInterface