1 | 8. ||a1|| > 0 9. l = a1[0] 10. i: (||a1||-1). a1[i]  a1[(i+1)] 11. a1[(||a1||-1)] = m 12. a: ((V+T)*)* 13. ||a|| > 0 14. m = a[0] 15. i: (||a||-1). a[i]  a[(i+1)] 16. a[(||a||-1)] = n (firstn(||a1||-1;a1) @ a) ((V+T)* List ) |
2 | l = (firstn(||a1||-1;a1) @ a)[0]
& ( i: (||firstn(||a1||-1;a1) @ a||-1).
(firstn(||a1||-1;a1) @ a)[i]  (firstn(||a1||-1;a1) @ a)[(i+1)])
& (firstn(||a1||-1;a1) @ a)[(||firstn(||a1||-1;a1) @ a||-1)] = n |
3 | 8. ||a1|| > 0 9. l = a1[0] 10. i: (||a1||-1). a1[i]  a1[(i+1)] 11. a1[(||a1||-1)] = m 12. a: ((V+T)*)* 13. ||a|| > 0 14. m = a[0] 15. i: (||a||-1). a[i]  a[(i+1)] 16. a[(||a||-1)] = n 17. a2: (V+T)* List (l = a2[0] & ( i: (||a2||-1). a2[i]  a2[(i+1)]) & a2[(||a2||-1)] = n) Prop |