proposition: Lemma find_ext_dec: (forall m1 m2: farray, Equal m1 m2 -> (equal m1 m2) = true).
proof: Proof. intros. apply Equal_Equivb in H. apply equal_1. exact H. Qed.
imports: SetoidList Bool OrderedType OrdersLists RelationPairs Orders RelationClasses