1. ltg : IdLnkIdType
2. i : Id
3. da1 : k:Knd fp-> Type
4. da2 : k:Knd fp-> Type
5. (ltg  mapfilter(k.da-outlink-f(da1  da2;k);k.
5. has-src(i;k);fpf-dom-list(da1  da2)))
6. (ltg  mapfilter(k.da-outlink-f(da1;k);k.has-src(i;k);fpf-dom-list(da1)))
6. 
6. (y:{k:Knd| k  dom(da1) }. 
6. ((y  fpf-dom-list(da1)) & has-src(i;y) & ltg = da-outlink-f(da1;y))
7. (ltg  mapfilter(k.da-outlink-f(da1;k);k.
7. has-src(i;k);fpf-dom-list(da1)))  (y:{k:Knd| k  dom(da1) }. 
7. (y  fpf-dom-list(da1)) & has-src(i;y) & ltg = da-outlink-f(da1;y))
8. (ltg  mapfilter(k.da-outlink-f(da2;k);k.has-src(i;k);fpf-dom-list(da2)))
8. 
8. (y:{k:Knd| k  dom(da2) }. 
8. ((y  fpf-dom-list(da2)) & has-src(i;y) & ltg = da-outlink-f(da2;y))
9. (ltg  mapfilter(k.da-outlink-f(da2;k);k.
9. has-src(i;k);fpf-dom-list(da2)))  (y:{k:Knd| k  dom(da2) }. 
9. (y  fpf-dom-list(da2)) & has-src(i;y) & ltg = da-outlink-f(da2;y))
10. y : Knd
11. y  dom(da1  da2)  [not for witness]
12. (y  fpf-dom-list(da1  da2))
13. has-src(i;y)
14. ltg = da-outlink-f(da1  da2;y)
15. y  dom(da1  da2)
16. y  dom(da1)
  (y  fpf-dom-list(da1))

By:	AssertBY (fpf-dom-list(da1)  {k:Knd| k  dom(da1) } List) Auto THEN DupHyp -2 THEN Unfold `fpf-dom` -1 THEN Fold `fpf-dom-list` -1 THEN RWO Thm* eq:EqDecider(A), L:A List, x:A. deq-member(eq;x;L)  (x  L) -1

1	11. y  dom(da1  da2) 12. (y  fpf-dom-list(da1  da2)) 13. has-src(i;y) 14. ltg = da-outlink-f(da1  da2;y)  IdLnkIdType 15. y  dom(da1  da2) 16. y  dom(da1) 17. fpf-dom-list(da1)  {k:Knd| k  dom(da1) } List 18. deq-member(KindDeq;y;fpf-dom-list(da1))   fpf-dom-list(da1)  Knd List	1 step
2	17. fpf-dom-list(da1)  {k:Knd| k  dom(da1) } List 18. (y  fpf-dom-list(da1))   (y  fpf-dom-list(da1))	1 step

About: IF YOU CAN SEE THIS go to /sfa/Nuprl/Shared/Xindentation_hack_doc.html