At: fun preserves fin1111111111111111121 1. S: Type 2. T: Type 3. n: 4. f: nS 5. g: Sn 6. g o f = Id & f o g = Id 7. n1: 8. f1: n1T 9. g1: Tn1 10. g1 o f1 = Id 11. f1 o g1 = Id 12. f2: (nn1)(n1n) 13. g2: (n1n)nn1 14. g2 o f2 = Id 15. f2 o g2 = Id 16. x: ST
((h.f1 o g2(h) o g) o (h.f2(g1 o h o f)))(x) = Id(x) By: RWH rem_composeC 0 Generated subgoal: