fact: Definition nat_complete' A (sim:nat->binary A) := forall (u:nat->A), (forall i j, i < j -> sim i (u i) (u j)) -> exists l, forall i, sim i (u i) l.
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)