Nuprl - Pf wp2 rel correct 2 1 2 1 1 1 2 2 1 1 1 1 1 1 1

(73steps) PrintForm Definitions Lemmas mb automata 4 Sections GenAutomata Doc

At: wp2 rel correct 2 1 2 1 1 1 2 2 1 1 1 1 1 1 1

1. A: ioa{i:l}()
2. r: rel()
3. rho: Decl
4. de: sig()
5. e: {[[de]] rho}
6. a: ([[A.da]] rho)
7. tr: trace_env([[A.da]] rho)
8. tc_ioa(A;de)
9. trace_consistent_rel(rho;A.da;tr.proj;r)
10. single_valued_decls(A.ds)
11. s: {[[A.ds]] rho}
12. x': {[[A.ds]] rho}
13. tc(r;A.ds;dec_lookup(A.da;kind(a));de)
14. covers_rel(A;r)
15. p:pre(). p A.pre p.kind = kind(a) [[p.rel]] rho A.ds dec_lookup(A.da;kind(a)) de e s value(a) niltrace()
16. ef:eff(). ef A.eff ef.kind = kind(a) x'.ef.smt.lbl = [[ef.smt.term]] 1of(e) s value(a) niltrace() [[ef.smt.typ]] rho
17. fr:frame(). fr A.frame (kind(a) fr.acts) x'.fr.var = s.fr.var [[fr.typ]] rho
18. x:Label. rel_mentions(r;x) covers_var(A;x)
19. value(a) [[dec_lookup(A.da;kind(a))]] rho
20. r@0:rel(). r@0 col_subst2(x.smts_eff(action_effect(kind(a);A.eff;A.frame);x);r) [[r@0]] rho A.ds dec_lookup(A.da;kind(a)) de e s value(a) tr
21. r': rel()
22. as: (LabelTerm) List
23. 1of(unzip(as)) = rel_primed_vars(r)
24. i:. i < ||as|| 2of(as[i]) smts_eff(action_effect(kind(a);A.eff;A.frame);1of(as[i]))
25. r' = rel_subst2(as;r)
26. tc(r;A.ds;dec_lookup(A.da;kind(a));de)
27. i: ||as||
28. mentions_trace(2of(as[i]))
29. s1: smt()
30. e1: eff()
31. e1 A.eff
32. e1.kind = kind(a)
33. s1 = e1.smt
34. s1.lbl = 1of(as[i])
35. 2of(as[i]) = s1.term