let D be set ; :: thesis: for f being FinSequence of D holds
( f is poorly-one-to-one iff ( len f <> 2 implies for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1) ) )

let f be FinSequence of D; :: thesis: ( f is poorly-one-to-one iff ( len f <> 2 implies for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1) ) )

thus ( f is poorly-one-to-one & len f <> 2 implies for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1) ) :: thesis: ( ( len f <> 2 implies for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1) ) implies f is poorly-one-to-one )
proof
assume that
A1: f is poorly-one-to-one and
A2: len f <> 2 ; :: thesis: for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1)

let i be Nat; :: thesis: ( 1 <= i & i < len f implies f /. i <> f /. (i + 1) )
assume that
A3: 1 <= i and
A4: i < len f ; :: thesis: f /. i <> f /. (i + 1)
A5: i + 1 <= len f by A4, NAT_1:13;
1 < i + 1 by A3, NAT_1:13;
then A6: f . (i + 1) = f /. (i + 1) by A5, FINSEQ_4:15;
f . i = f /. i by A3, A4, FINSEQ_4:15;
hence f /. i <> f /. (i + 1) by A1, A2, A3, A4, A6, Def3; :: thesis: verum
end;
assume A7: ( len f <> 2 implies for i being Nat st 1 <= i & i < len f holds
f /. i <> f /. (i + 1) ) ; :: thesis: f is poorly-one-to-one
per cases ( len f <> 2 or len f = 2 ) ;
suppose A8: len f <> 2 ; :: thesis: f is poorly-one-to-one
now :: thesis: for i being Nat st 1 <= i & i < len f holds
f . i <> f . (i + 1)
let i be Nat; :: thesis: ( 1 <= i & i < len f implies f . i <> f . (i + 1) )
assume that
A9: 1 <= i and
A10: i < len f ; :: thesis: f . i <> f . (i + 1)
A11: i + 1 <= len f by A10, NAT_1:13;
1 < i + 1 by A9, NAT_1:13;
then A12: f . (i + 1) = f /. (i + 1) by A11, FINSEQ_4:15;
f . i = f /. i by A9, A10, FINSEQ_4:15;
hence f . i <> f . (i + 1) by A7, A8, A9, A10, A12; :: thesis: verum
end;
hence f is poorly-one-to-one by A8, Def3; :: thesis: verum
end;
suppose len f = 2 ; :: thesis: f is poorly-one-to-one
end;
end;