fact: Definition diff_index_p : forall a b, a <> b -> { i | select a i <> select b i } := (fun a b u => constructive_indefinite_description _ (@extensionnality2 _ _ u)).
imports: Bool OrderedType SMT_classes ProofIrrelevance Classical_Pred_Type ClassicalEpsilon