1. A : Dsys
2. B : Dsys
3. A  B
4. w : World
5. i,x:Id. vartype(i;x) r M(i).ds(x)
6. i:Id, a:Action(i). isnull(a)  (valtype(i;a) r M(i).da(kind(a)))
7. l:IdLnk, tg:Id. (w.M(l,tg)) r M(source(l)).da(rcv(l; tg))
8. i,x:Id. M(i).init(x,s(i;0).x)
9. i:Id, t:.
9. isnull(a(i;t))
9. 
9. (islocal(kind(a(i;t)))
9. (
9. (M(i).pre(act(kind(a(i;t))),x.s(i;t).x,val(a(i;t))))
9. & (x:Id. M(i).ef(kind(a(i;t)),x,x.s(i;t).x,val(a(i;t)),s(i;t+1).x))
9. & (l:IdLnk. 
9. & (M(i).send(kind(a(i;t));l;x.s(i;t).x;val(a(i;t));withlnk(l;m(i;t));i))
9. & (x:Id. M(i).frame(kind(a(i;t)) affects x)  s(i;t).x = s(i;t+1).x)
9. & (l:IdLnk, tg:Id.
9. & (M(i).sframe(kind(a(i;t)) sends <l,tg>)
9. & (
9. & (w-tagged(tg; onlnk(l;m(i;t))) = nil)
10. i,a:Id, t:.
10. t':. 
10. tt'
10. & isnull(a(i;t')) & kind(a(i;t')) = locl(a)
10. &  a declared in M(i)
10. &  unsolvable M(i).pre(a,x.s(i;t').x)
11. i,x:Id. vartype(i;x) r M(i).ds(x)
12. i:Id, a:Action(i). isnull(a)  (valtype(i;a) r M(i).da(kind(a)))
13. l:IdLnk, tg:Id. (w.M(l,tg)) r M(source(l)).da(rcv(l; tg))
14. i,x:Id. M(i).init(x,s(i;0).x)
15. i:Id, t:.
15. isnull(a(i;t))
15. 
15. (islocal(kind(a(i;t)))
15. (
15. (M(i).pre(act(kind(a(i;t))),x.s(i;t).x,val(a(i;t))))
15. & (x:Id. M(i).ef(kind(a(i;t)),x,x.s(i;t).x,val(a(i;t)),s(i;t+1).x))
15. & (l:IdLnk. 
15. & (M(i).send(kind(a(i;t));l;x.s(i;t).x;val(a(i;t));withlnk(l;m(i;t));i))
15. & (x:Id. M(i).frame(kind(a(i;t)) affects x)  s(i;t).x = s(i;t+1).x)
15. & (l:IdLnk, tg:Id.
15. & (M(i).sframe(kind(a(i;t)) sends <l,tg>)
15. & (
15. & (w-tagged(tg; onlnk(l;m(i;t))) = nil)
16. i : Id
17. a:Id, t:.
17. t':. 
17. tt'
17. & isnull(a(i;t')) & kind(a(i;t')) = locl(a)
17. &  a declared in M(i)
17. &  unsolvable M(i).pre(a,x.s(i;t').x)
18. a : Id
19. t:. 
19. t':. 
19. tt'
19. & isnull(a(i;t')) & kind(a(i;t')) = locl(a)
19. &  a declared in M(i)
19. &  unsolvable M(i).pre(a,x.s(i;t').x)
20. 
21. t' : 
22. unsolvable M(i).pre(a,x.s(i;t').x)
23. a declared in M(i)
  unsolvable M(i).pre(a,x.s(i;t').x)

By:

Using [`M2',M(i)] (BackThru (Thm* M1,M2:MsgA. (Thm* M1  M2 (Thm*  (Thm* (a:Id, s:M2.state. (Thm* (a declared in M1  unsolvable M2.pre(a,s)  unsolvable M1.pre(a,s))) THEN Try (Unfold `ma-st` 0 THEN Unfold `ma-state` 0 THEN Fold `ma-ds` 0 THEN DoSubsume (THEN (BackThruSomeHyp) THEN AllHyps (h.Unfold `d-sub` h THEN BackThru h)

None

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