∀k,f:Top.  (reduce(f;k;[]) ~ k)
{ (UnivCD THENA Auto) }
1. k : Top@i
2. f : Top@i
⊢ reduce(f;k;[]) ~ k