:: deftheorem Def4 defines cLoop TOPALG_5:def 4 :
for r being Real
for b2 being Function of I[01],(Tunit_circle 2) holds
( b2 = cLoop r iff for x being Point of I[01] holds b2 . x = |[(cos (((2 * PI) * r) * x)),(sin (((2 * PI) * r) * x))]| );