1. ds : x:Id fp-> Type
2. da : a:Knd fp-> Type
3. init : x:Id fp-> ds(x)?Void
4. pre : a:Id fp-> State(ds)da(locl(a))?TopProp
5. ef : kx:KndId fp-> State(ds)da(1of(kx))?Topds(2of(kx))?Void
6. send : 
6. kl:KndIdLnk fp-> (tg:Id
6. kl:KndIdLnk fp-> (State(ds)da(1of(kl))?Top
6. kl:KndIdLnk fp-> ((da(rcv(2of(kl); tg))?Void List)) List
7. frame : x:Id fp-> Knd List
8. sframe : ltg:IdLnkId fp-> Knd List
9. A8 : Top
10. d1 : x:Id fp-> Type
11. d2 : a:Knd fp-> Type
12. i1 : x:Id fp-> d1(x)?Void
13. p1 : a:Id fp-> State(d1)d2(locl(a))?TopProp
14. e1 : kx:KndId fp-> State(d1)d2(1of(kx))?Topd1(2of(kx))?Void
15. s1 : 
15. kl:KndIdLnk fp-> (tg:Id
15. kl:KndIdLnk fp-> (State(d1)d2(1of(kl))?Top
15. kl:KndIdLnk fp-> ((d2(rcv(2of(kl); tg))?Void List)) List
16. f1 : x:Id fp-> Knd List
17. s2 : ltg:IdLnkId fp-> Knd List
18. B8 : Top
19. <ds,da,init,pre,ef,send,frame,sframe,A8> || <d1,d2,i1,p1,e1,s1,f1,s2,B8>
20. ma-frame-compatible(<ds,da,init,pre,ef,send,frame,sframe,A8>;
20. ma-frame-compatible(<d1,d2,i1,p1,e1,s1,f1,s2,B8>)
21. ma-sframe-compatible(<ds,da,init,pre,ef,send,frame,sframe,A8>;
21. ma-sframe-compatible(<d1,d2,i1,p1,e1,s1,f1,s2,B8>)
22. x:Id. x  dom(ds)  ds(x)
23. k:Knd. k  dom(da)  Dec(da(k))
24. a:Id. a  dom(pre)  (s:State(ds). Dec(v:da(locl(a))?Top. pre(a)(s,v)))
25. kx:(KndId). 
25. kx  dom(ef)  L != frame(2of(kx)) ==> deq-member(KindDeq;1of(kx);L)
26. kl:(KndIdLnk). 
26. kl  dom(send)
26. 
26. (tg:Id. 
26. ((tg  map(p.1of(p);send(kl)))
26. (
26. (L != sframe(<2of(kl),tg>) ==> deq-member(KindDeq;1of(kl);L))
27. x:Id. x  dom(d1)  d1(x)
28. k:Knd. k  dom(d2)  Dec(d2(k))
29. a:Id. a  dom(p1)  (s:State(d1). Dec(v:d2(locl(a))?Top. p1(a)(s,v)))
30. kx:(KndId). 
30. kx  dom(e1)  L != f1(2of(kx)) ==> deq-member(KindDeq;1of(kx);L)
31. kl:(KndIdLnk). 
31. kl  dom(s1)
31. 
31. (tg:Id. 
31. ((tg  map(p.1of(p);s1(kl)))
31. (
31. (L != s2(<2of(kl),tg>) ==> deq-member(KindDeq;1of(kl);L))
32. kl : KndIdLnk
33. send  a:KndIdLnk fp-> Top
34. s1  a:KndIdLnk fp-> Top
35. kl  dom(s1)
36. tg : Id
37. kl  dom(send)
38. (tg  map(p.1of(p);s1(kl)))
39. <2of(kl),tg>  dom(sframe  s2)
40. <2of(kl),tg>  dom(sframe)
  deq-member(KindDeq;1of(kl);sframe(<2of(kl),tg>))

By:	AllHyps (h. (Unfold `ma-sframe-compatible` h THEN Reduce h THEN InstHyp [kl;tg] h (THEN (Analyze -1 (THEN (Repeat ThinTrivial (THEN (Try Trivial)

1

21. kl:(KndIdLnk), tg:Id. 21. (kl  dom(send) 21. ( 21. ((tg  map(p.1of(p);send(kl))) 21. ( 21. (<2of(kl),tg>  dom(sframe) 21. ( 21. (<2of(kl),tg>  dom(s2)  deq-member(KindDeq;1of(kl);s2(<2of(kl),tg>))) 21. & (kl  dom(s1) 21. & ( 21. & ((tg  map(p.1of(p);s1(kl))) 21. & ( 21. & (<2of(kl),tg>  dom(s2) 21. & ( 21. & (<2of(kl),tg>  dom(sframe) 21. & ( 21. & (deq-member(KindDeq;1of(kl);sframe(<2of(kl),tg>))) 22. x:Id. x  dom(ds)  ds(x) 23. k:Knd. k  dom(da)  Dec(da(k)) 24. a:Id. a  dom(pre)  (s:State(ds). Dec(v:da(locl(a))?Top. pre(a)(s,v))) 25. kx:(KndId).  25. kx  dom(ef)  L != frame(2of(kx)) ==> deq-member(KindDeq;1of(kx);L) 26. kl:(KndIdLnk).  26. kl  dom(send) 26.  26. (tg:Id.  26. ((tg  map(p.1of(p);send(kl))) 26. ( 26. (L != sframe(<2of(kl),tg>) ==> deq-member(KindDeq;1of(kl);L)) 27. x:Id. x  dom(d1)  d1(x) 28. k:Knd. k  dom(d2)  Dec(d2(k)) 29. a:Id. a  dom(p1)  (s:State(d1). Dec(v:d2(locl(a))?Top. p1(a)(s,v))) 30. kx:(KndId).  30. kx  dom(e1)  L != f1(2of(kx)) ==> deq-member(KindDeq;1of(kx);L) 31. kl:(KndIdLnk).  31. kl  dom(s1) 31.  31. (tg:Id.  31. ((tg  map(p.1of(p);s1(kl))) 31. ( 31. (L != s2(<2of(kl),tg>) ==> deq-member(KindDeq;1of(kl);L)) 32. kl : KndIdLnk 33. send  a:KndIdLnk fp-> Top 34. s1  a:KndIdLnk fp-> Top 35. kl  dom(s1) 36. tg : Id 37. kl  dom(send) 38. (tg  map(p.1of(p);s1(kl))) 39. <2of(kl),tg>  dom(sframe  s2) 40. <2of(kl),tg>  dom(sframe) 41. <2of(kl),tg>  dom(s2) 41.  41. <2of(kl),tg>  dom(sframe) 41.  41. deq-member(KindDeq;1of(kl);sframe(<2of(kl),tg>))   deq-member(KindDeq;1of(kl);sframe(<2of(kl),tg>))

6 steps

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