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

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

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. ioa_mentions_trace(A)
10. trace_consistent_rel(rho;A.da;tr.proj;r)
11. single_valued_decls(A.ds)
12. s: [[A]] rho de e.state
13. x': [[A]] rho de e.state
14. tc(r;A.ds;dec_lookup(A.da;kind(a));de)
15. covers_rel(A;r)
16. value(a) [[dec_lookup(A.da;kind(a))]] rho
17. 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()
18. 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
19. fr:frame(). fr A.frame (kind(a) fr.acts) x'.fr.var = s.fr.var [[fr.typ]] rho
20. rel_mng_2(r; rho; A.ds; dec_lookup(A.da;kind(a)); de; e; s; x'; value(a); tr)
21. r@0: rel()
22. as: (LabelTerm) List
23. 1of(unzip(as)) = rel_primed_vars(r)
24. i:. i < ||as|| 2of(as[i]) (x.smts_eff(action_effect(kind(a);A.eff;A.frame);x))(1of(as[i]))
25. r@0 = rel_subst2(as;r)
26. x: Label
27. (x 1of(unzip(as)))
28. i:
29. i < ||as||
30. < x,apply_alist(as;x;x) > = as[i]
31. xxx: Term
32. 2of(as[i]) = xxx
33. xx: Label
34. 1of(as[i]) = xx
35. xxx smts_eff(action_effect(kind(a);A.eff;A.frame);xx)

t:SimpleType. mk_dec(xx, t) A.ds t term_types(A.ds;dec_lookup(A.da;kind(a));de;xxx) & x'.xx = [[xxx]] 1of(e) s value(a) tr [[t]] rho

By: Unfolds [`smts_eff`;`action_effect`] -1 THEN Unfold `smt_terms` -1 THEN RW ColMemberC -1 THEN ExRepDHyps THEN HypSubstSq -1 0 THEN Thin -1 THEN EqLblFwd THEN RevHypSubstSq -1 0 THEN Thin -1 THEN Thin -1 THEN Analyze -1 THEN ExRepDHyps THEN HypSubstSq -1 0 THEN Reduce 0

Generated subgoals:

1 35. s1: smt()
36. e1: eff()
37. e1 A.eff
38. e1.kind = kind(a)
39. s1 = e1.smt
t:SimpleType. mk_dec(e1.smt.lbl, t) A.ds t term_types(A.ds;dec_lookup(A.da;kind(a));de;e1.smt.term) & x'.e1.smt.lbl = [[e1.smt.term]] 1of(e) s value(a) tr [[t]] rho

2 35. s1: smt()
36. f: frame()
37. f A.frame
38. kind(a) f.acts
39. s1 = mk_smt(f.var, f.var, f.typ)
t:SimpleType. mk_dec(f.var, t) A.ds t dec_lookup(A.ds;f.var) & x'.f.var = s.f.var [[t]] rho

About:

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

1	35. `s1:` `smt()` 36. `e1:` `eff()` 37. `e1 A.eff` 38. `e1.kind = kind(a)` 39. `s1 = e1.smt` `t:SimpleType. mk_dec(e1.smt.lbl, t) A.ds t term_types(A.ds;dec_lookup(A.da;kind(a));de;e1.smt.term) & x'.e1.smt.lbl = [[e1.smt.term]] 1of(e) s value(a) tr [[t]] rho`
2	35. `s1:` `smt()` 36. `f:` `frame()` 37. `f A.frame` 38. `kind(a) f.acts` 39. `s1 = mk_smt(f.var, f.var, f.typ)` `t:SimpleType. mk_dec(f.var, t) A.ds t dec_lookup(A.ds;f.var) & x'.f.var = s.f.var [[t]] rho`