shen-ruby 0.8.1 → 0.9.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (20) hide show
  1. checksums.yaml +4 -4
  2. data/HISTORY.md +4 -0
  3. data/README.md +4 -4
  4. data/lib/shen_ruby/version.rb +1 -1
  5. data/shen/release/k_lambda/core.kl +63 -63
  6. data/shen/release/k_lambda/declarations.kl +59 -10
  7. data/shen/release/k_lambda/load.kl +15 -15
  8. data/shen/release/k_lambda/macros.kl +31 -29
  9. data/shen/release/k_lambda/prolog.kl +97 -97
  10. data/shen/release/k_lambda/reader.kl +79 -79
  11. data/shen/release/k_lambda/sequent.kl +60 -54
  12. data/shen/release/k_lambda/sys.kl +98 -98
  13. data/shen/release/k_lambda/t-star.kl +47 -47
  14. data/shen/release/k_lambda/toplevel.kl +21 -21
  15. data/shen/release/k_lambda/track.kl +25 -25
  16. data/shen/release/k_lambda/types.kl +4 -8
  17. data/shen/release/k_lambda/writer.kl +25 -25
  18. data/shen/release/k_lambda/yacc.kl +32 -26
  19. data/shen-ruby.gemspec +1 -1
  20. metadata +3 -3
data/shen/release/k_lambda/t-star.kl CHANGED
@@ -47,113 +47,113 @@
47
47
  * explains this license in full. *
48
48
  * *
49
49
  *****************************************************************************************
50
- "(defun shen.typecheck (V2826 V2827) (let Curry (shen.curry V2826) (let ProcessN (shen.start-new-prolog-process) (let Type (shen.insert-prolog-variables (shen.demodulate (shen.curry-type V2827)) ProcessN) (let Continuation (freeze (return Type ProcessN shen.void)) (shen.t* (cons Curry (cons : (cons Type ()))) () ProcessN Continuation))))))
50
+ "(defun shen.typecheck (V2882 V2883) (let Curry (shen.curry V2882) (let ProcessN (shen.start-new-prolog-process) (let Type (shen.insert-prolog-variables (shen.demodulate (shen.curry-type V2883)) ProcessN) (let Continuation (freeze (return Type ProcessN shen.void)) (shen.t* (cons Curry (cons : (cons Type ()))) () ProcessN Continuation))))))
51
51
 
52
- (defun shen.curry (V2828) (cond ((and (cons? V2828) (shen.special? (hd V2828))) (cons (hd V2828) (map shen.curry (tl V2828)))) ((and (cons? V2828) (and (cons? (tl V2828)) (shen.extraspecial? (hd V2828)))) V2828) ((and (cons? V2828) (and (= type (hd V2828)) (and (cons? (tl V2828)) (and (cons? (tl (tl V2828))) (= () (tl (tl (tl V2828)))))))) (cons type (cons (shen.curry (hd (tl V2828))) (tl (tl V2828))))) ((and (cons? V2828) (and (cons? (tl V2828)) (cons? (tl (tl V2828))))) (shen.curry (cons (cons (hd V2828) (cons (hd (tl V2828)) ())) (tl (tl V2828))))) ((and (cons? V2828) (and (cons? (tl V2828)) (= () (tl (tl V2828))))) (cons (shen.curry (hd V2828)) (cons (shen.curry (hd (tl V2828))) ()))) (true V2828)))
52
+ (defun shen.curry (V2884) (cond ((and (cons? V2884) (shen.special? (hd V2884))) (cons (hd V2884) (map (lambda X2877 (shen.curry X2877)) (tl V2884)))) ((and (cons? V2884) (and (cons? (tl V2884)) (shen.extraspecial? (hd V2884)))) V2884) ((and (cons? V2884) (and (= type (hd V2884)) (and (cons? (tl V2884)) (and (cons? (tl (tl V2884))) (= () (tl (tl (tl V2884)))))))) (cons type (cons (shen.curry (hd (tl V2884))) (tl (tl V2884))))) ((and (cons? V2884) (and (cons? (tl V2884)) (cons? (tl (tl V2884))))) (shen.curry (cons (cons (hd V2884) (cons (hd (tl V2884)) ())) (tl (tl V2884))))) ((and (cons? V2884) (and (cons? (tl V2884)) (= () (tl (tl V2884))))) (cons (shen.curry (hd V2884)) (cons (shen.curry (hd (tl V2884))) ()))) (true V2884)))
53
53
 
54
- (defun shen.special? (V2829) (element? V2829 (value shen.*special*)))
54
+ (defun shen.special? (V2885) (element? V2885 (value shen.*special*)))
55
55
 
56
- (defun shen.extraspecial? (V2830) (element? V2830 (value shen.*extraspecial*)))
56
+ (defun shen.extraspecial? (V2886) (element? V2886 (value shen.*extraspecial*)))
57
57
 
58
- (defun shen.t* (V2831 V2832 V2833 V2834) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let Error (shen.newpv V2833) (do (shen.incinfs) (fwhen (shen.maxinfexceeded?) V2833 (freeze (bind Error (shen.errormaxinfs) V2833 V2834))))) (if (= Case false) (let Case (let V2820 (shen.lazyderef V2831 V2833) (if (= fail V2820) (do (shen.incinfs) (cut Throwcontrol V2833 (freeze (shen.prolog-failure V2833 V2834)))) false)) (if (= Case false) (let Case (let V2821 (shen.lazyderef V2831 V2833) (if (cons? V2821) (let X (hd V2821) (let V2822 (shen.lazyderef (tl V2821) V2833) (if (cons? V2822) (let V2823 (shen.lazyderef (hd V2822) V2833) (if (= : V2823) (let V2824 (shen.lazyderef (tl V2822) V2833) (if (cons? V2824) (let A (hd V2824) (let V2825 (shen.lazyderef (tl V2824) V2833) (if (= () V2825) (do (shen.incinfs) (fwhen (shen.type-theory-enabled?) V2833 (freeze (cut Throwcontrol V2833 (freeze (shen.th* X A V2832 V2833 V2834)))))) false))) false)) false)) false))) false)) (if (= Case false) (let Datatypes (shen.newpv V2833) (do (shen.incinfs) (shen.show V2831 V2832 V2833 (freeze (bind Datatypes (value shen.*datatypes*) V2833 (freeze (shen.udefs* V2831 V2832 Datatypes V2833 V2834))))))) Case)) Case)) Case)))))
58
+ (defun shen.t* (V2887 V2888 V2889 V2890) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let Error (shen.newpv V2889) (do (shen.incinfs) (fwhen (shen.maxinfexceeded?) V2889 (freeze (bind Error (shen.errormaxinfs) V2889 V2890))))) (if (= Case false) (let Case (let V2871 (shen.lazyderef V2887 V2889) (if (= fail V2871) (do (shen.incinfs) (cut Throwcontrol V2889 (freeze (shen.prolog-failure V2889 V2890)))) false)) (if (= Case false) (let Case (let V2872 (shen.lazyderef V2887 V2889) (if (cons? V2872) (let X (hd V2872) (let V2873 (shen.lazyderef (tl V2872) V2889) (if (cons? V2873) (let V2874 (shen.lazyderef (hd V2873) V2889) (if (= : V2874) (let V2875 (shen.lazyderef (tl V2873) V2889) (if (cons? V2875) (let A (hd V2875) (let V2876 (shen.lazyderef (tl V2875) V2889) (if (= () V2876) (do (shen.incinfs) (fwhen (shen.type-theory-enabled?) V2889 (freeze (cut Throwcontrol V2889 (freeze (shen.th* X A V2888 V2889 V2890)))))) false))) false)) false)) false))) false)) (if (= Case false) (let Datatypes (shen.newpv V2889) (do (shen.incinfs) (shen.show V2887 V2888 V2889 (freeze (bind Datatypes (value shen.*datatypes*) V2889 (freeze (shen.udefs* V2887 V2888 Datatypes V2889 V2890))))))) Case)) Case)) Case)))))
59
59
 
60
60
  (defun shen.type-theory-enabled? () (value shen.*shen-type-theory-enabled?*))
61
61
 
62
- (defun enable-type-theory (V2839) (cond ((= + V2839) (set shen.*shen-type-theory-enabled?* true)) ((= - V2839) (set shen.*shen-type-theory-enabled?* false)) (true (simple-error "enable-type-theory expects a + or a -
62
+ (defun enable-type-theory (V2895) (cond ((= + V2895) (set shen.*shen-type-theory-enabled?* true)) ((= - V2895) (set shen.*shen-type-theory-enabled?* false)) (true (simple-error "enable-type-theory expects a + or a -
63
63
  "))))
64
64
 
65
- (defun shen.prolog-failure (V2848 V2849) false)
65
+ (defun shen.prolog-failure (V2904 V2905) false)
66
66
 
67
67
  (defun shen.maxinfexceeded? () (> (inferences) (value shen.*maxinferences*)))
68
68
 
69
69
  (defun shen.errormaxinfs () (simple-error "maximum inferences exceeded~%"))
70
70
 
71
- (defun shen.udefs* (V2850 V2851 V2852 V2853 V2854) (let Case (let V2816 (shen.lazyderef V2852 V2853) (if (cons? V2816) (let D (hd V2816) (do (shen.incinfs) (call (cons D (cons V2850 (cons V2851 ()))) V2853 V2854))) false)) (if (= Case false) (let V2817 (shen.lazyderef V2852 V2853) (if (cons? V2817) (let Ds (tl V2817) (do (shen.incinfs) (shen.udefs* V2850 V2851 Ds V2853 V2854))) false)) Case)))
71
+ (defun shen.udefs* (V2906 V2907 V2908 V2909 V2910) (let Case (let V2867 (shen.lazyderef V2908 V2909) (if (cons? V2867) (let D (hd V2867) (do (shen.incinfs) (call (cons D (cons V2906 (cons V2907 ()))) V2909 V2910))) false)) (if (= Case false) (let V2868 (shen.lazyderef V2908 V2909) (if (cons? V2868) (let Ds (tl V2868) (do (shen.incinfs) (shen.udefs* V2906 V2907 Ds V2909 V2910))) false)) Case)))
72
72
 
73
- (defun shen.th* (V2855 V2856 V2857 V2858 V2859) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (do (shen.incinfs) (shen.show (cons V2855 (cons : (cons V2856 ()))) V2857 V2858 (freeze (fwhen false V2858 V2859)))) (if (= Case false) (let Case (let F (shen.newpv V2858) (do (shen.incinfs) (fwhen (shen.typedf? (shen.lazyderef V2855 V2858)) V2858 (freeze (bind F (shen.sigf (shen.lazyderef V2855 V2858)) V2858 (freeze (call (cons F (cons V2856 ())) V2858 V2859))))))) (if (= Case false) (let Case (do (shen.incinfs) (shen.base V2855 V2856 V2858 V2859)) (if (= Case false) (let Case (do (shen.incinfs) (shen.by_hypothesis V2855 V2856 V2857 V2858 V2859)) (if (= Case false) (let Case (let V2701 (shen.lazyderef V2855 V2858) (if (cons? V2701) (let F (hd V2701) (let V2702 (shen.lazyderef (tl V2701) V2858) (if (= () V2702) (do (shen.incinfs) (shen.th* F (cons --> (cons V2856 ())) V2857 V2858 V2859)) false))) false)) (if (= Case false) (let Case (let V2703 (shen.lazyderef V2855 V2858) (if (cons? V2703) (let F (hd V2703) (let V2704 (shen.lazyderef (tl V2703) V2858) (if (cons? V2704) (let X (hd V2704) (let V2705 (shen.lazyderef (tl V2704) V2858) (if (= () V2705) (let B (shen.newpv V2858) (do (shen.incinfs) (shen.th* F (cons B (cons --> (cons V2856 ()))) V2857 V2858 (freeze (shen.th* X B V2857 V2858 V2859))))) false))) false))) false)) (if (= Case false) (let Case (let V2706 (shen.lazyderef V2855 V2858) (if (cons? V2706) (let V2707 (shen.lazyderef (hd V2706) V2858) (if (= cons V2707) (let V2708 (shen.lazyderef (tl V2706) V2858) (if (cons? V2708) (let X (hd V2708) (let V2709 (shen.lazyderef (tl V2708) V2858) (if (cons? V2709) (let Y (hd V2709) (let V2710 (shen.lazyderef (tl V2709) V2858) (if (= () V2710) (let V2711 (shen.lazyderef V2856 V2858) (if (cons? V2711) (let V2712 (shen.lazyderef (hd V2711) V2858) (if (= list V2712) (let V2713 (shen.lazyderef (tl V2711) V2858) (if (cons? V2713) (let A (hd V2713) (let V2714 (shen.lazyderef (tl V2713) V2858) (if (= () V2714) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (if (shen.pvar? V2714) (do (shen.bindv V2714 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2714 V2858) Result))) false)))) (if (shen.pvar? V2713) (let A (shen.newpv V2858) (do (shen.bindv V2713 (cons A ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2713 V2858) Result)))) false))) (if (shen.pvar? V2712) (do (shen.bindv V2712 list V2858) (let Result (let V2715 (shen.lazyderef (tl V2711) V2858) (if (cons? V2715) (let A (hd V2715) (let V2716 (shen.lazyderef (tl V2715) V2858) (if (= () V2716) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (if (shen.pvar? V2716) (do (shen.bindv V2716 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2716 V2858) Result))) false)))) (if (shen.pvar? V2715) (let A (shen.newpv V2858) (do (shen.bindv V2715 (cons A ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2715 V2858) Result)))) false))) (do (shen.unbindv V2712 V2858) Result))) false))) (if (shen.pvar? V2711) (let A (shen.newpv V2858) (do (shen.bindv V2711 (cons list (cons A ())) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons list (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2711 V2858) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2717 (shen.lazyderef V2855 V2858) (if (cons? V2717) (let V2718 (shen.lazyderef (hd V2717) V2858) (if (= @p V2718) (let V2719 (shen.lazyderef (tl V2717) V2858) (if (cons? V2719) (let X (hd V2719) (let V2720 (shen.lazyderef (tl V2719) V2858) (if (cons? V2720) (let Y (hd V2720) (let V2721 (shen.lazyderef (tl V2720) V2858) (if (= () V2721) (let V2722 (shen.lazyderef V2856 V2858) (if (cons? V2722) (let A (hd V2722) (let V2723 (shen.lazyderef (tl V2722) V2858) (if (cons? V2723) (let V2724 (shen.lazyderef (hd V2723) V2858) (if (= * V2724) (let V2725 (shen.lazyderef (tl V2723) V2858) (if (cons? V2725) (let B (hd V2725) (let V2726 (shen.lazyderef (tl V2725) V2858) (if (= () V2726) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (if (shen.pvar? V2726) (do (shen.bindv V2726 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2726 V2858) Result))) false)))) (if (shen.pvar? V2725) (let B (shen.newpv V2858) (do (shen.bindv V2725 (cons B ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2725 V2858) Result)))) false))) (if (shen.pvar? V2724) (do (shen.bindv V2724 * V2858) (let Result (let V2727 (shen.lazyderef (tl V2723) V2858) (if (cons? V2727) (let B (hd V2727) (let V2728 (shen.lazyderef (tl V2727) V2858) (if (= () V2728) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (if (shen.pvar? V2728) (do (shen.bindv V2728 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2728 V2858) Result))) false)))) (if (shen.pvar? V2727) (let B (shen.newpv V2858) (do (shen.bindv V2727 (cons B ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2727 V2858) Result)))) false))) (do (shen.unbindv V2724 V2858) Result))) false))) (if (shen.pvar? V2723) (let B (shen.newpv V2858) (do (shen.bindv V2723 (cons * (cons B ())) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2723 V2858) Result)))) false)))) (if (shen.pvar? V2722) (let A (shen.newpv V2858) (let B (shen.newpv V2858) (do (shen.bindv V2722 (cons A (cons * (cons B ()))) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y B V2857 V2858 V2859)))) (do (shen.unbindv V2722 V2858) Result))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2729 (shen.lazyderef V2855 V2858) (if (cons? V2729) (let V2730 (shen.lazyderef (hd V2729) V2858) (if (= @v V2730) (let V2731 (shen.lazyderef (tl V2729) V2858) (if (cons? V2731) (let X (hd V2731) (let V2732 (shen.lazyderef (tl V2731) V2858) (if (cons? V2732) (let Y (hd V2732) (let V2733 (shen.lazyderef (tl V2732) V2858) (if (= () V2733) (let V2734 (shen.lazyderef V2856 V2858) (if (cons? V2734) (let V2735 (shen.lazyderef (hd V2734) V2858) (if (= vector V2735) (let V2736 (shen.lazyderef (tl V2734) V2858) (if (cons? V2736) (let A (hd V2736) (let V2737 (shen.lazyderef (tl V2736) V2858) (if (= () V2737) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (if (shen.pvar? V2737) (do (shen.bindv V2737 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2737 V2858) Result))) false)))) (if (shen.pvar? V2736) (let A (shen.newpv V2858) (do (shen.bindv V2736 (cons A ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2736 V2858) Result)))) false))) (if (shen.pvar? V2735) (do (shen.bindv V2735 vector V2858) (let Result (let V2738 (shen.lazyderef (tl V2734) V2858) (if (cons? V2738) (let A (hd V2738) (let V2739 (shen.lazyderef (tl V2738) V2858) (if (= () V2739) (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (if (shen.pvar? V2739) (do (shen.bindv V2739 () V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2739 V2858) Result))) false)))) (if (shen.pvar? V2738) (let A (shen.newpv V2858) (do (shen.bindv V2738 (cons A ()) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2738 V2858) Result)))) false))) (do (shen.unbindv V2735 V2858) Result))) false))) (if (shen.pvar? V2734) (let A (shen.newpv V2858) (do (shen.bindv V2734 (cons vector (cons A ())) V2858) (let Result (do (shen.incinfs) (shen.th* X A V2857 V2858 (freeze (shen.th* Y (cons vector (cons A ())) V2857 V2858 V2859)))) (do (shen.unbindv V2734 V2858) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2740 (shen.lazyderef V2855 V2858) (if (cons? V2740) (let V2741 (shen.lazyderef (hd V2740) V2858) (if (= @s V2741) (let V2742 (shen.lazyderef (tl V2740) V2858) (if (cons? V2742) (let X (hd V2742) (let V2743 (shen.lazyderef (tl V2742) V2858) (if (cons? V2743) (let Y (hd V2743) (let V2744 (shen.lazyderef (tl V2743) V2858) (if (= () V2744) (let V2745 (shen.lazyderef V2856 V2858) (if (= string V2745) (do (shen.incinfs) (shen.th* X string V2857 V2858 (freeze (shen.th* Y string V2857 V2858 V2859)))) (if (shen.pvar? V2745) (do (shen.bindv V2745 string V2858) (let Result (do (shen.incinfs) (shen.th* X string V2857 V2858 (freeze (shen.th* Y string V2857 V2858 V2859)))) (do (shen.unbindv V2745 V2858) Result))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2746 (shen.lazyderef V2855 V2858) (if (cons? V2746) (let V2747 (shen.lazyderef (hd V2746) V2858) (if (= lambda V2747) (let V2748 (shen.lazyderef (tl V2746) V2858) (if (cons? V2748) (let X (hd V2748) (let V2749 (shen.lazyderef (tl V2748) V2858) (if (cons? V2749) (let Y (hd V2749) (let V2750 (shen.lazyderef (tl V2749) V2858) (if (= () V2750) (let V2751 (shen.lazyderef V2856 V2858) (if (cons? V2751) (let A (hd V2751) (let V2752 (shen.lazyderef (tl V2751) V2858) (if (cons? V2752) (let V2753 (shen.lazyderef (hd V2752) V2858) (if (= --> V2753) (let V2754 (shen.lazyderef (tl V2752) V2858) (if (cons? V2754) (let B (hd V2754) (let V2755 (shen.lazyderef (tl V2754) V2858) (if (= () V2755) (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (if (shen.pvar? V2755) (do (shen.bindv V2755 () V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2755 V2858) Result))) false)))) (if (shen.pvar? V2754) (let B (shen.newpv V2858) (do (shen.bindv V2754 (cons B ()) V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2754 V2858) Result)))) false))) (if (shen.pvar? V2753) (do (shen.bindv V2753 --> V2858) (let Result (let V2756 (shen.lazyderef (tl V2752) V2858) (if (cons? V2756) (let B (hd V2756) (let V2757 (shen.lazyderef (tl V2756) V2858) (if (= () V2757) (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (if (shen.pvar? V2757) (do (shen.bindv V2757 () V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2757 V2858) Result))) false)))) (if (shen.pvar? V2756) (let B (shen.newpv V2858) (do (shen.bindv V2756 (cons B ()) V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2756 V2858) Result)))) false))) (do (shen.unbindv V2753 V2858) Result))) false))) (if (shen.pvar? V2752) (let B (shen.newpv V2858) (do (shen.bindv V2752 (cons --> (cons B ())) V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2752 V2858) Result)))) false)))) (if (shen.pvar? V2751) (let A (shen.newpv V2858) (let B (shen.newpv V2858) (do (shen.bindv V2751 (cons A (cons --> (cons B ()))) V2858) (let Result (let Z (shen.newpv V2858) (let X&& (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Y V2858)) V2858 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2857) V2858 V2859)))))))))) (do (shen.unbindv V2751 V2858) Result))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2758 (shen.lazyderef V2855 V2858) (if (cons? V2758) (let V2759 (shen.lazyderef (hd V2758) V2858) (if (= let V2759) (let V2760 (shen.lazyderef (tl V2758) V2858) (if (cons? V2760) (let X (hd V2760) (let V2761 (shen.lazyderef (tl V2760) V2858) (if (cons? V2761) (let Y (hd V2761) (let V2762 (shen.lazyderef (tl V2761) V2858) (if (cons? V2762) (let Z (hd V2762) (let V2763 (shen.lazyderef (tl V2762) V2858) (if (= () V2763) (let W (shen.newpv V2858) (let X&& (shen.newpv V2858) (let B (shen.newpv V2858) (do (shen.incinfs) (shen.th* Y B V2857 V2858 (freeze (bind X&& (shen.placeholder) V2858 (freeze (bind W (shen.ebr (shen.lazyderef X&& V2858) (shen.lazyderef X V2858) (shen.lazyderef Z V2858)) V2858 (freeze (shen.th* W V2856 (cons (cons X&& (cons : (cons B ()))) V2857) V2858 V2859))))))))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2764 (shen.lazyderef V2855 V2858) (if (cons? V2764) (let V2765 (shen.lazyderef (hd V2764) V2858) (if (= open V2765) (let V2766 (shen.lazyderef (tl V2764) V2858) (if (cons? V2766) (let FileName (hd V2766) (let V2767 (shen.lazyderef (tl V2766) V2858) (if (cons? V2767) (let Direction2697 (hd V2767) (let V2768 (shen.lazyderef (tl V2767) V2858) (if (= () V2768) (let V2769 (shen.lazyderef V2856 V2858) (if (cons? V2769) (let V2770 (shen.lazyderef (hd V2769) V2858) (if (= stream V2770) (let V2771 (shen.lazyderef (tl V2769) V2858) (if (cons? V2771) (let Direction (hd V2771) (let V2772 (shen.lazyderef (tl V2771) V2858) (if (= () V2772) (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (if (shen.pvar? V2772) (do (shen.bindv V2772 () V2858) (let Result (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (do (shen.unbindv V2772 V2858) Result))) false)))) (if (shen.pvar? V2771) (let Direction (shen.newpv V2858) (do (shen.bindv V2771 (cons Direction ()) V2858) (let Result (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (do (shen.unbindv V2771 V2858) Result)))) false))) (if (shen.pvar? V2770) (do (shen.bindv V2770 stream V2858) (let Result (let V2773 (shen.lazyderef (tl V2769) V2858) (if (cons? V2773) (let Direction (hd V2773) (let V2774 (shen.lazyderef (tl V2773) V2858) (if (= () V2774) (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (if (shen.pvar? V2774) (do (shen.bindv V2774 () V2858) (let Result (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (do (shen.unbindv V2774 V2858) Result))) false)))) (if (shen.pvar? V2773) (let Direction (shen.newpv V2858) (do (shen.bindv V2773 (cons Direction ()) V2858) (let Result (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (do (shen.unbindv V2773 V2858) Result)))) false))) (do (shen.unbindv V2770 V2858) Result))) false))) (if (shen.pvar? V2769) (let Direction (shen.newpv V2858) (do (shen.bindv V2769 (cons stream (cons Direction ())) V2858) (let Result (do (shen.incinfs) (unify! Direction Direction2697 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* FileName string V2857 V2858 V2859)))))) (do (shen.unbindv V2769 V2858) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2775 (shen.lazyderef V2855 V2858) (if (cons? V2775) (let V2776 (shen.lazyderef (hd V2775) V2858) (if (= type V2776) (let V2777 (shen.lazyderef (tl V2775) V2858) (if (cons? V2777) (let X (hd V2777) (let V2778 (shen.lazyderef (tl V2777) V2858) (if (cons? V2778) (let A (hd V2778) (let V2779 (shen.lazyderef (tl V2778) V2858) (if (= () V2779) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (unify A V2856 V2858 (freeze (shen.th* X A V2857 V2858 V2859)))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2780 (shen.lazyderef V2855 V2858) (if (cons? V2780) (let V2781 (shen.lazyderef (hd V2780) V2858) (if (= input+ V2781) (let V2782 (shen.lazyderef (tl V2780) V2858) (if (cons? V2782) (let A (hd V2782) (let V2783 (shen.lazyderef (tl V2782) V2858) (if (cons? V2783) (let Stream (hd V2783) (let V2784 (shen.lazyderef (tl V2783) V2858) (if (= () V2784) (let C (shen.newpv V2858) (do (shen.incinfs) (bind C (shen.demodulate (shen.lazyderef A V2858)) V2858 (freeze (unify V2856 C V2858 (freeze (shen.th* Stream (cons stream (cons in ())) V2857 V2858 V2859))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2785 (shen.lazyderef V2855 V2858) (if (cons? V2785) (let V2786 (shen.lazyderef (hd V2785) V2858) (if (= set V2786) (let V2787 (shen.lazyderef (tl V2785) V2858) (if (cons? V2787) (let Var (hd V2787) (let V2788 (shen.lazyderef (tl V2787) V2858) (if (cons? V2788) (let Val (hd V2788) (let V2789 (shen.lazyderef (tl V2788) V2858) (if (= () V2789) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (shen.th* Var symbol V2857 V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* (cons value (cons Var ())) V2856 V2857 V2858 (freeze (shen.th* Val V2856 V2857 V2858 V2859)))))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2790 (shen.lazyderef V2855 V2858) (if (cons? V2790) (let V2791 (shen.lazyderef (hd V2790) V2858) (if (= shen.<-sem V2791) (let V2792 (shen.lazyderef (tl V2790) V2858) (if (cons? V2792) (let F (hd V2792) (let V2793 (shen.lazyderef (tl V2792) V2858) (if (= () V2793) (let A (shen.newpv V2858) (let F&& (shen.newpv V2858) (let B (shen.newpv V2858) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (shen.th* F (cons A (cons ==> (cons B ()))) V2857 V2858 (freeze (cut Throwcontrol V2858 (freeze (bind F&& (concat && (shen.lazyderef F V2858)) V2858 (freeze (cut Throwcontrol V2858 (freeze (shen.th* F&& V2856 (cons (cons F&& (cons : (cons B ()))) V2857) V2858 V2859))))))))))))))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2794 (shen.lazyderef V2855 V2858) (if (cons? V2794) (let V2795 (shen.lazyderef (hd V2794) V2858) (if (= fail V2795) (let V2796 (shen.lazyderef (tl V2794) V2858) (if (= () V2796) (let V2797 (shen.lazyderef V2856 V2858) (if (= symbol V2797) (do (shen.incinfs) (thaw V2859)) (if (shen.pvar? V2797) (do (shen.bindv V2797 symbol V2858) (let Result (do (shen.incinfs) (thaw V2859)) (do (shen.unbindv V2797 V2858) Result))) false))) false)) false)) false)) (if (= Case false) (let Case (let NewHyp (shen.newpv V2858) (do (shen.incinfs) (shen.t*-hyps V2857 NewHyp V2858 (freeze (shen.th* V2855 V2856 NewHyp V2858 V2859))))) (if (= Case false) (let Case (let V2798 (shen.lazyderef V2855 V2858) (if (cons? V2798) (let V2799 (shen.lazyderef (hd V2798) V2858) (if (= define V2799) (let V2800 (shen.lazyderef (tl V2798) V2858) (if (cons? V2800) (let F (hd V2800) (let X (tl V2800) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (shen.t*-def (cons define (cons F X)) V2856 V2857 V2858 V2859)))))) false)) false)) false)) (if (= Case false) (let Case (let V2801 (shen.lazyderef V2855 V2858) (if (cons? V2801) (let V2802 (shen.lazyderef (hd V2801) V2858) (if (= defcc V2802) (let V2803 (shen.lazyderef (tl V2801) V2858) (if (cons? V2803) (let F (hd V2803) (let X (tl V2803) (do (shen.incinfs) (cut Throwcontrol V2858 (freeze (shen.t*-defcc (cons defcc (cons F X)) V2856 V2857 V2858 V2859)))))) false)) false)) false)) (if (= Case false) (let Case (let V2804 (shen.lazyderef V2855 V2858) (if (cons? V2804) (let V2805 (shen.lazyderef (hd V2804) V2858) (if (= defmacro V2805) (let V2806 (shen.lazyderef V2856 V2858) (if (= unit V2806) (do (shen.incinfs) (cut Throwcontrol V2858 V2859)) (if (shen.pvar? V2806) (do (shen.bindv V2806 unit V2858) (let Result (do (shen.incinfs) (cut Throwcontrol V2858 V2859)) (do (shen.unbindv V2806 V2858) Result))) false))) false)) false)) (if (= Case false) (let Case (let V2807 (shen.lazyderef V2855 V2858) (if (cons? V2807) (let V2808 (shen.lazyderef (hd V2807) V2858) (if (= shen.process-datatype V2808) (let V2809 (shen.lazyderef V2856 V2858) (if (= symbol V2809) (do (shen.incinfs) (thaw V2859)) (if (shen.pvar? V2809) (do (shen.bindv V2809 symbol V2858) (let Result (do (shen.incinfs) (thaw V2859)) (do (shen.unbindv V2809 V2858) Result))) false))) false)) false)) (if (= Case false) (let Case (let V2810 (shen.lazyderef V2855 V2858) (if (cons? V2810) (let V2811 (shen.lazyderef (hd V2810) V2858) (if (= shen.synonyms-help V2811) (let V2812 (shen.lazyderef V2856 V2858) (if (= symbol V2812) (do (shen.incinfs) (thaw V2859)) (if (shen.pvar? V2812) (do (shen.bindv V2812 symbol V2858) (let Result (do (shen.incinfs) (thaw V2859)) (do (shen.unbindv V2812 V2858) Result))) false))) false)) false)) (if (= Case false) (let Datatypes (shen.newpv V2858) (do (shen.incinfs) (bind Datatypes (value shen.*datatypes*) V2858 (freeze (shen.udefs* (cons V2855 (cons : (cons V2856 ()))) V2857 Datatypes V2858 V2859))))) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)))))
73
+ (defun shen.th* (V2911 V2912 V2913 V2914 V2915) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (do (shen.incinfs) (shen.show (cons V2911 (cons : (cons V2912 ()))) V2913 V2914 (freeze (fwhen false V2914 V2915)))) (if (= Case false) (let Case (let F (shen.newpv V2914) (do (shen.incinfs) (fwhen (shen.typedf? (shen.lazyderef V2911 V2914)) V2914 (freeze (bind F (shen.sigf (shen.lazyderef V2911 V2914)) V2914 (freeze (call (cons F (cons V2912 ())) V2914 V2915))))))) (if (= Case false) (let Case (do (shen.incinfs) (shen.base V2911 V2912 V2914 V2915)) (if (= Case false) (let Case (do (shen.incinfs) (shen.by_hypothesis V2911 V2912 V2913 V2914 V2915)) (if (= Case false) (let Case (let V2752 (shen.lazyderef V2911 V2914) (if (cons? V2752) (let F (hd V2752) (let V2753 (shen.lazyderef (tl V2752) V2914) (if (= () V2753) (do (shen.incinfs) (shen.th* F (cons --> (cons V2912 ())) V2913 V2914 V2915)) false))) false)) (if (= Case false) (let Case (let V2754 (shen.lazyderef V2911 V2914) (if (cons? V2754) (let F (hd V2754) (let V2755 (shen.lazyderef (tl V2754) V2914) (if (cons? V2755) (let X (hd V2755) (let V2756 (shen.lazyderef (tl V2755) V2914) (if (= () V2756) (let B (shen.newpv V2914) (do (shen.incinfs) (shen.th* F (cons B (cons --> (cons V2912 ()))) V2913 V2914 (freeze (shen.th* X B V2913 V2914 V2915))))) false))) false))) false)) (if (= Case false) (let Case (let V2757 (shen.lazyderef V2911 V2914) (if (cons? V2757) (let V2758 (shen.lazyderef (hd V2757) V2914) (if (= cons V2758) (let V2759 (shen.lazyderef (tl V2757) V2914) (if (cons? V2759) (let X (hd V2759) (let V2760 (shen.lazyderef (tl V2759) V2914) (if (cons? V2760) (let Y (hd V2760) (let V2761 (shen.lazyderef (tl V2760) V2914) (if (= () V2761) (let V2762 (shen.lazyderef V2912 V2914) (if (cons? V2762) (let V2763 (shen.lazyderef (hd V2762) V2914) (if (= list V2763) (let V2764 (shen.lazyderef (tl V2762) V2914) (if (cons? V2764) (let A (hd V2764) (let V2765 (shen.lazyderef (tl V2764) V2914) (if (= () V2765) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (if (shen.pvar? V2765) (do (shen.bindv V2765 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2765 V2914) Result))) false)))) (if (shen.pvar? V2764) (let A (shen.newpv V2914) (do (shen.bindv V2764 (cons A ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2764 V2914) Result)))) false))) (if (shen.pvar? V2763) (do (shen.bindv V2763 list V2914) (let Result (let V2766 (shen.lazyderef (tl V2762) V2914) (if (cons? V2766) (let A (hd V2766) (let V2767 (shen.lazyderef (tl V2766) V2914) (if (= () V2767) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (if (shen.pvar? V2767) (do (shen.bindv V2767 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2767 V2914) Result))) false)))) (if (shen.pvar? V2766) (let A (shen.newpv V2914) (do (shen.bindv V2766 (cons A ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2766 V2914) Result)))) false))) (do (shen.unbindv V2763 V2914) Result))) false))) (if (shen.pvar? V2762) (let A (shen.newpv V2914) (do (shen.bindv V2762 (cons list (cons A ())) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons list (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2762 V2914) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2768 (shen.lazyderef V2911 V2914) (if (cons? V2768) (let V2769 (shen.lazyderef (hd V2768) V2914) (if (= @p V2769) (let V2770 (shen.lazyderef (tl V2768) V2914) (if (cons? V2770) (let X (hd V2770) (let V2771 (shen.lazyderef (tl V2770) V2914) (if (cons? V2771) (let Y (hd V2771) (let V2772 (shen.lazyderef (tl V2771) V2914) (if (= () V2772) (let V2773 (shen.lazyderef V2912 V2914) (if (cons? V2773) (let A (hd V2773) (let V2774 (shen.lazyderef (tl V2773) V2914) (if (cons? V2774) (let V2775 (shen.lazyderef (hd V2774) V2914) (if (= * V2775) (let V2776 (shen.lazyderef (tl V2774) V2914) (if (cons? V2776) (let B (hd V2776) (let V2777 (shen.lazyderef (tl V2776) V2914) (if (= () V2777) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (if (shen.pvar? V2777) (do (shen.bindv V2777 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2777 V2914) Result))) false)))) (if (shen.pvar? V2776) (let B (shen.newpv V2914) (do (shen.bindv V2776 (cons B ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2776 V2914) Result)))) false))) (if (shen.pvar? V2775) (do (shen.bindv V2775 * V2914) (let Result (let V2778 (shen.lazyderef (tl V2774) V2914) (if (cons? V2778) (let B (hd V2778) (let V2779 (shen.lazyderef (tl V2778) V2914) (if (= () V2779) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (if (shen.pvar? V2779) (do (shen.bindv V2779 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2779 V2914) Result))) false)))) (if (shen.pvar? V2778) (let B (shen.newpv V2914) (do (shen.bindv V2778 (cons B ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2778 V2914) Result)))) false))) (do (shen.unbindv V2775 V2914) Result))) false))) (if (shen.pvar? V2774) (let B (shen.newpv V2914) (do (shen.bindv V2774 (cons * (cons B ())) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2774 V2914) Result)))) false)))) (if (shen.pvar? V2773) (let A (shen.newpv V2914) (let B (shen.newpv V2914) (do (shen.bindv V2773 (cons A (cons * (cons B ()))) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y B V2913 V2914 V2915)))) (do (shen.unbindv V2773 V2914) Result))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2780 (shen.lazyderef V2911 V2914) (if (cons? V2780) (let V2781 (shen.lazyderef (hd V2780) V2914) (if (= @v V2781) (let V2782 (shen.lazyderef (tl V2780) V2914) (if (cons? V2782) (let X (hd V2782) (let V2783 (shen.lazyderef (tl V2782) V2914) (if (cons? V2783) (let Y (hd V2783) (let V2784 (shen.lazyderef (tl V2783) V2914) (if (= () V2784) (let V2785 (shen.lazyderef V2912 V2914) (if (cons? V2785) (let V2786 (shen.lazyderef (hd V2785) V2914) (if (= vector V2786) (let V2787 (shen.lazyderef (tl V2785) V2914) (if (cons? V2787) (let A (hd V2787) (let V2788 (shen.lazyderef (tl V2787) V2914) (if (= () V2788) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (if (shen.pvar? V2788) (do (shen.bindv V2788 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2788 V2914) Result))) false)))) (if (shen.pvar? V2787) (let A (shen.newpv V2914) (do (shen.bindv V2787 (cons A ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2787 V2914) Result)))) false))) (if (shen.pvar? V2786) (do (shen.bindv V2786 vector V2914) (let Result (let V2789 (shen.lazyderef (tl V2785) V2914) (if (cons? V2789) (let A (hd V2789) (let V2790 (shen.lazyderef (tl V2789) V2914) (if (= () V2790) (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (if (shen.pvar? V2790) (do (shen.bindv V2790 () V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2790 V2914) Result))) false)))) (if (shen.pvar? V2789) (let A (shen.newpv V2914) (do (shen.bindv V2789 (cons A ()) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2789 V2914) Result)))) false))) (do (shen.unbindv V2786 V2914) Result))) false))) (if (shen.pvar? V2785) (let A (shen.newpv V2914) (do (shen.bindv V2785 (cons vector (cons A ())) V2914) (let Result (do (shen.incinfs) (shen.th* X A V2913 V2914 (freeze (shen.th* Y (cons vector (cons A ())) V2913 V2914 V2915)))) (do (shen.unbindv V2785 V2914) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2791 (shen.lazyderef V2911 V2914) (if (cons? V2791) (let V2792 (shen.lazyderef (hd V2791) V2914) (if (= @s V2792) (let V2793 (shen.lazyderef (tl V2791) V2914) (if (cons? V2793) (let X (hd V2793) (let V2794 (shen.lazyderef (tl V2793) V2914) (if (cons? V2794) (let Y (hd V2794) (let V2795 (shen.lazyderef (tl V2794) V2914) (if (= () V2795) (let V2796 (shen.lazyderef V2912 V2914) (if (= string V2796) (do (shen.incinfs) (shen.th* X string V2913 V2914 (freeze (shen.th* Y string V2913 V2914 V2915)))) (if (shen.pvar? V2796) (do (shen.bindv V2796 string V2914) (let Result (do (shen.incinfs) (shen.th* X string V2913 V2914 (freeze (shen.th* Y string V2913 V2914 V2915)))) (do (shen.unbindv V2796 V2914) Result))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2797 (shen.lazyderef V2911 V2914) (if (cons? V2797) (let V2798 (shen.lazyderef (hd V2797) V2914) (if (= lambda V2798) (let V2799 (shen.lazyderef (tl V2797) V2914) (if (cons? V2799) (let X (hd V2799) (let V2800 (shen.lazyderef (tl V2799) V2914) (if (cons? V2800) (let Y (hd V2800) (let V2801 (shen.lazyderef (tl V2800) V2914) (if (= () V2801) (let V2802 (shen.lazyderef V2912 V2914) (if (cons? V2802) (let A (hd V2802) (let V2803 (shen.lazyderef (tl V2802) V2914) (if (cons? V2803) (let V2804 (shen.lazyderef (hd V2803) V2914) (if (= --> V2804) (let V2805 (shen.lazyderef (tl V2803) V2914) (if (cons? V2805) (let B (hd V2805) (let V2806 (shen.lazyderef (tl V2805) V2914) (if (= () V2806) (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (if (shen.pvar? V2806) (do (shen.bindv V2806 () V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2806 V2914) Result))) false)))) (if (shen.pvar? V2805) (let B (shen.newpv V2914) (do (shen.bindv V2805 (cons B ()) V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2805 V2914) Result)))) false))) (if (shen.pvar? V2804) (do (shen.bindv V2804 --> V2914) (let Result (let V2807 (shen.lazyderef (tl V2803) V2914) (if (cons? V2807) (let B (hd V2807) (let V2808 (shen.lazyderef (tl V2807) V2914) (if (= () V2808) (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (if (shen.pvar? V2808) (do (shen.bindv V2808 () V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2808 V2914) Result))) false)))) (if (shen.pvar? V2807) (let B (shen.newpv V2914) (do (shen.bindv V2807 (cons B ()) V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2807 V2914) Result)))) false))) (do (shen.unbindv V2804 V2914) Result))) false))) (if (shen.pvar? V2803) (let B (shen.newpv V2914) (do (shen.bindv V2803 (cons --> (cons B ())) V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2803 V2914) Result)))) false)))) (if (shen.pvar? V2802) (let A (shen.newpv V2914) (let B (shen.newpv V2914) (do (shen.bindv V2802 (cons A (cons --> (cons B ()))) V2914) (let Result (let Z (shen.newpv V2914) (let X&& (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind Z (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Y V2914)) V2914 (freeze (shen.th* Z B (cons (cons X&& (cons : (cons A ()))) V2913) V2914 V2915)))))))))) (do (shen.unbindv V2802 V2914) Result))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2809 (shen.lazyderef V2911 V2914) (if (cons? V2809) (let V2810 (shen.lazyderef (hd V2809) V2914) (if (= let V2810) (let V2811 (shen.lazyderef (tl V2809) V2914) (if (cons? V2811) (let X (hd V2811) (let V2812 (shen.lazyderef (tl V2811) V2914) (if (cons? V2812) (let Y (hd V2812) (let V2813 (shen.lazyderef (tl V2812) V2914) (if (cons? V2813) (let Z (hd V2813) (let V2814 (shen.lazyderef (tl V2813) V2914) (if (= () V2814) (let W (shen.newpv V2914) (let X&& (shen.newpv V2914) (let B (shen.newpv V2914) (do (shen.incinfs) (shen.th* Y B V2913 V2914 (freeze (bind X&& (shen.placeholder) V2914 (freeze (bind W (shen.ebr (shen.lazyderef X&& V2914) (shen.lazyderef X V2914) (shen.lazyderef Z V2914)) V2914 (freeze (shen.th* W V2912 (cons (cons X&& (cons : (cons B ()))) V2913) V2914 V2915))))))))))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2815 (shen.lazyderef V2911 V2914) (if (cons? V2815) (let V2816 (shen.lazyderef (hd V2815) V2914) (if (= open V2816) (let V2817 (shen.lazyderef (tl V2815) V2914) (if (cons? V2817) (let FileName (hd V2817) (let V2818 (shen.lazyderef (tl V2817) V2914) (if (cons? V2818) (let Direction2748 (hd V2818) (let V2819 (shen.lazyderef (tl V2818) V2914) (if (= () V2819) (let V2820 (shen.lazyderef V2912 V2914) (if (cons? V2820) (let V2821 (shen.lazyderef (hd V2820) V2914) (if (= stream V2821) (let V2822 (shen.lazyderef (tl V2820) V2914) (if (cons? V2822) (let Direction (hd V2822) (let V2823 (shen.lazyderef (tl V2822) V2914) (if (= () V2823) (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (if (shen.pvar? V2823) (do (shen.bindv V2823 () V2914) (let Result (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (do (shen.unbindv V2823 V2914) Result))) false)))) (if (shen.pvar? V2822) (let Direction (shen.newpv V2914) (do (shen.bindv V2822 (cons Direction ()) V2914) (let Result (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (do (shen.unbindv V2822 V2914) Result)))) false))) (if (shen.pvar? V2821) (do (shen.bindv V2821 stream V2914) (let Result (let V2824 (shen.lazyderef (tl V2820) V2914) (if (cons? V2824) (let Direction (hd V2824) (let V2825 (shen.lazyderef (tl V2824) V2914) (if (= () V2825) (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (if (shen.pvar? V2825) (do (shen.bindv V2825 () V2914) (let Result (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (do (shen.unbindv V2825 V2914) Result))) false)))) (if (shen.pvar? V2824) (let Direction (shen.newpv V2914) (do (shen.bindv V2824 (cons Direction ()) V2914) (let Result (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (do (shen.unbindv V2824 V2914) Result)))) false))) (do (shen.unbindv V2821 V2914) Result))) false))) (if (shen.pvar? V2820) (let Direction (shen.newpv V2914) (do (shen.bindv V2820 (cons stream (cons Direction ())) V2914) (let Result (do (shen.incinfs) (unify! Direction Direction2748 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* FileName string V2913 V2914 V2915)))))) (do (shen.unbindv V2820 V2914) Result)))) false))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2826 (shen.lazyderef V2911 V2914) (if (cons? V2826) (let V2827 (shen.lazyderef (hd V2826) V2914) (if (= type V2827) (let V2828 (shen.lazyderef (tl V2826) V2914) (if (cons? V2828) (let X (hd V2828) (let V2829 (shen.lazyderef (tl V2828) V2914) (if (cons? V2829) (let A (hd V2829) (let V2830 (shen.lazyderef (tl V2829) V2914) (if (= () V2830) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (unify A V2912 V2914 (freeze (shen.th* X A V2913 V2914 V2915)))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2831 (shen.lazyderef V2911 V2914) (if (cons? V2831) (let V2832 (shen.lazyderef (hd V2831) V2914) (if (= input+ V2832) (let V2833 (shen.lazyderef (tl V2831) V2914) (if (cons? V2833) (let A (hd V2833) (let V2834 (shen.lazyderef (tl V2833) V2914) (if (cons? V2834) (let Stream (hd V2834) (let V2835 (shen.lazyderef (tl V2834) V2914) (if (= () V2835) (let C (shen.newpv V2914) (do (shen.incinfs) (bind C (shen.demodulate (shen.lazyderef A V2914)) V2914 (freeze (unify V2912 C V2914 (freeze (shen.th* Stream (cons stream (cons in ())) V2913 V2914 V2915))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2836 (shen.lazyderef V2911 V2914) (if (cons? V2836) (let V2837 (shen.lazyderef (hd V2836) V2914) (if (= set V2837) (let V2838 (shen.lazyderef (tl V2836) V2914) (if (cons? V2838) (let Var (hd V2838) (let V2839 (shen.lazyderef (tl V2838) V2914) (if (cons? V2839) (let Val (hd V2839) (let V2840 (shen.lazyderef (tl V2839) V2914) (if (= () V2840) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (shen.th* Var symbol V2913 V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* (cons value (cons Var ())) V2912 V2913 V2914 (freeze (shen.th* Val V2912 V2913 V2914 V2915)))))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2841 (shen.lazyderef V2911 V2914) (if (cons? V2841) (let V2842 (shen.lazyderef (hd V2841) V2914) (if (= shen.<-sem V2842) (let V2843 (shen.lazyderef (tl V2841) V2914) (if (cons? V2843) (let F (hd V2843) (let V2844 (shen.lazyderef (tl V2843) V2914) (if (= () V2844) (let A (shen.newpv V2914) (let F&& (shen.newpv V2914) (let B (shen.newpv V2914) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (shen.th* F (cons A (cons ==> (cons B ()))) V2913 V2914 (freeze (cut Throwcontrol V2914 (freeze (bind F&& (concat && (shen.lazyderef F V2914)) V2914 (freeze (cut Throwcontrol V2914 (freeze (shen.th* F&& V2912 (cons (cons F&& (cons : (cons B ()))) V2913) V2914 V2915))))))))))))))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2845 (shen.lazyderef V2911 V2914) (if (cons? V2845) (let V2846 (shen.lazyderef (hd V2845) V2914) (if (= fail V2846) (let V2847 (shen.lazyderef (tl V2845) V2914) (if (= () V2847) (let V2848 (shen.lazyderef V2912 V2914) (if (= symbol V2848) (do (shen.incinfs) (thaw V2915)) (if (shen.pvar? V2848) (do (shen.bindv V2848 symbol V2914) (let Result (do (shen.incinfs) (thaw V2915)) (do (shen.unbindv V2848 V2914) Result))) false))) false)) false)) false)) (if (= Case false) (let Case (let NewHyp (shen.newpv V2914) (do (shen.incinfs) (shen.t*-hyps V2913 NewHyp V2914 (freeze (shen.th* V2911 V2912 NewHyp V2914 V2915))))) (if (= Case false) (let Case (let V2849 (shen.lazyderef V2911 V2914) (if (cons? V2849) (let V2850 (shen.lazyderef (hd V2849) V2914) (if (= define V2850) (let V2851 (shen.lazyderef (tl V2849) V2914) (if (cons? V2851) (let F (hd V2851) (let X (tl V2851) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (shen.t*-def (cons define (cons F X)) V2912 V2913 V2914 V2915)))))) false)) false)) false)) (if (= Case false) (let Case (let V2852 (shen.lazyderef V2911 V2914) (if (cons? V2852) (let V2853 (shen.lazyderef (hd V2852) V2914) (if (= defcc V2853) (let V2854 (shen.lazyderef (tl V2852) V2914) (if (cons? V2854) (let F (hd V2854) (let X (tl V2854) (do (shen.incinfs) (cut Throwcontrol V2914 (freeze (shen.t*-defcc (cons defcc (cons F X)) V2912 V2913 V2914 V2915)))))) false)) false)) false)) (if (= Case false) (let Case (let V2855 (shen.lazyderef V2911 V2914) (if (cons? V2855) (let V2856 (shen.lazyderef (hd V2855) V2914) (if (= defmacro V2856) (let V2857 (shen.lazyderef V2912 V2914) (if (= unit V2857) (do (shen.incinfs) (cut Throwcontrol V2914 V2915)) (if (shen.pvar? V2857) (do (shen.bindv V2857 unit V2914) (let Result (do (shen.incinfs) (cut Throwcontrol V2914 V2915)) (do (shen.unbindv V2857 V2914) Result))) false))) false)) false)) (if (= Case false) (let Case (let V2858 (shen.lazyderef V2911 V2914) (if (cons? V2858) (let V2859 (shen.lazyderef (hd V2858) V2914) (if (= shen.process-datatype V2859) (let V2860 (shen.lazyderef V2912 V2914) (if (= symbol V2860) (do (shen.incinfs) (thaw V2915)) (if (shen.pvar? V2860) (do (shen.bindv V2860 symbol V2914) (let Result (do (shen.incinfs) (thaw V2915)) (do (shen.unbindv V2860 V2914) Result))) false))) false)) false)) (if (= Case false) (let Case (let V2861 (shen.lazyderef V2911 V2914) (if (cons? V2861) (let V2862 (shen.lazyderef (hd V2861) V2914) (if (= shen.synonyms-help V2862) (let V2863 (shen.lazyderef V2912 V2914) (if (= symbol V2863) (do (shen.incinfs) (thaw V2915)) (if (shen.pvar? V2863) (do (shen.bindv V2863 symbol V2914) (let Result (do (shen.incinfs) (thaw V2915)) (do (shen.unbindv V2863 V2914) Result))) false))) false)) false)) (if (= Case false) (let Datatypes (shen.newpv V2914) (do (shen.incinfs) (bind Datatypes (value shen.*datatypes*) V2914 (freeze (shen.udefs* (cons V2911 (cons : (cons V2912 ()))) V2913 Datatypes V2914 V2915))))) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)) Case)))))
74
74
 
75
- (defun shen.t*-hyps (V2860 V2861 V2862 V2863) (let Case (let V2612 (shen.lazyderef V2860 V2862) (if (cons? V2612) (let V2613 (shen.lazyderef (hd V2612) V2862) (if (cons? V2613) (let V2614 (shen.lazyderef (hd V2613) V2862) (if (cons? V2614) (let V2615 (shen.lazyderef (hd V2614) V2862) (if (= cons V2615) (let V2616 (shen.lazyderef (tl V2614) V2862) (if (cons? V2616) (let X (hd V2616) (let V2617 (shen.lazyderef (tl V2616) V2862) (if (cons? V2617) (let Y (hd V2617) (let V2618 (shen.lazyderef (tl V2617) V2862) (if (= () V2618) (let V2619 (shen.lazyderef (tl V2613) V2862) (if (cons? V2619) (let V2620 (shen.lazyderef (hd V2619) V2862) (if (= : V2620) (let V2621 (shen.lazyderef (tl V2619) V2862) (if (cons? V2621) (let V2622 (shen.lazyderef (hd V2621) V2862) (if (cons? V2622) (let V2623 (shen.lazyderef (hd V2622) V2862) (if (= list V2623) (let V2624 (shen.lazyderef (tl V2622) V2862) (if (cons? V2624) (let A (hd V2624) (let V2625 (shen.lazyderef (tl V2624) V2862) (if (= () V2625) (let V2626 (shen.lazyderef (tl V2621) V2862) (if (= () V2626) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2626) (do (shen.bindv V2626 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2626 V2862) Result))) false))) (if (shen.pvar? V2625) (do (shen.bindv V2625 () V2862) (let Result (let V2627 (shen.lazyderef (tl V2621) V2862) (if (= () V2627) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2627) (do (shen.bindv V2627 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2627 V2862) Result))) false))) (do (shen.unbindv V2625 V2862) Result))) false)))) (if (shen.pvar? V2624) (let A (shen.newpv V2862) (do (shen.bindv V2624 (cons A ()) V2862) (let Result (let V2628 (shen.lazyderef (tl V2621) V2862) (if (= () V2628) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2628) (do (shen.bindv V2628 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2628 V2862) Result))) false))) (do (shen.unbindv V2624 V2862) Result)))) false))) (if (shen.pvar? V2623) (do (shen.bindv V2623 list V2862) (let Result (let V2629 (shen.lazyderef (tl V2622) V2862) (if (cons? V2629) (let A (hd V2629) (let V2630 (shen.lazyderef (tl V2629) V2862) (if (= () V2630) (let V2631 (shen.lazyderef (tl V2621) V2862) (if (= () V2631) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2631) (do (shen.bindv V2631 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2631 V2862) Result))) false))) (if (shen.pvar? V2630) (do (shen.bindv V2630 () V2862) (let Result (let V2632 (shen.lazyderef (tl V2621) V2862) (if (= () V2632) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2632) (do (shen.bindv V2632 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2632 V2862) Result))) false))) (do (shen.unbindv V2630 V2862) Result))) false)))) (if (shen.pvar? V2629) (let A (shen.newpv V2862) (do (shen.bindv V2629 (cons A ()) V2862) (let Result (let V2633 (shen.lazyderef (tl V2621) V2862) (if (= () V2633) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2633) (do (shen.bindv V2633 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2633 V2862) Result))) false))) (do (shen.unbindv V2629 V2862) Result)))) false))) (do (shen.unbindv V2623 V2862) Result))) false))) (if (shen.pvar? V2622) (let A (shen.newpv V2862) (do (shen.bindv V2622 (cons list (cons A ())) V2862) (let Result (let V2634 (shen.lazyderef (tl V2621) V2862) (if (= () V2634) (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2634) (do (shen.bindv V2634 () V2862) (let Result (let Hyp (tl V2612) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons list (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2634 V2862) Result))) false))) (do (shen.unbindv V2622 V2862) Result)))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2635 (shen.lazyderef V2860 V2862) (if (cons? V2635) (let V2636 (shen.lazyderef (hd V2635) V2862) (if (cons? V2636) (let V2637 (shen.lazyderef (hd V2636) V2862) (if (cons? V2637) (let V2638 (shen.lazyderef (hd V2637) V2862) (if (= @p V2638) (let V2639 (shen.lazyderef (tl V2637) V2862) (if (cons? V2639) (let X (hd V2639) (let V2640 (shen.lazyderef (tl V2639) V2862) (if (cons? V2640) (let Y (hd V2640) (let V2641 (shen.lazyderef (tl V2640) V2862) (if (= () V2641) (let V2642 (shen.lazyderef (tl V2636) V2862) (if (cons? V2642) (let V2643 (shen.lazyderef (hd V2642) V2862) (if (= : V2643) (let V2644 (shen.lazyderef (tl V2642) V2862) (if (cons? V2644) (let V2645 (shen.lazyderef (hd V2644) V2862) (if (cons? V2645) (let A (hd V2645) (let V2646 (shen.lazyderef (tl V2645) V2862) (if (cons? V2646) (let V2647 (shen.lazyderef (hd V2646) V2862) (if (= * V2647) (let V2648 (shen.lazyderef (tl V2646) V2862) (if (cons? V2648) (let B (hd V2648) (let V2649 (shen.lazyderef (tl V2648) V2862) (if (= () V2649) (let V2650 (shen.lazyderef (tl V2644) V2862) (if (= () V2650) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2650) (do (shen.bindv V2650 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2650 V2862) Result))) false))) (if (shen.pvar? V2649) (do (shen.bindv V2649 () V2862) (let Result (let V2651 (shen.lazyderef (tl V2644) V2862) (if (= () V2651) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2651) (do (shen.bindv V2651 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2651 V2862) Result))) false))) (do (shen.unbindv V2649 V2862) Result))) false)))) (if (shen.pvar? V2648) (let B (shen.newpv V2862) (do (shen.bindv V2648 (cons B ()) V2862) (let Result (let V2652 (shen.lazyderef (tl V2644) V2862) (if (= () V2652) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2652) (do (shen.bindv V2652 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2652 V2862) Result))) false))) (do (shen.unbindv V2648 V2862) Result)))) false))) (if (shen.pvar? V2647) (do (shen.bindv V2647 * V2862) (let Result (let V2653 (shen.lazyderef (tl V2646) V2862) (if (cons? V2653) (let B (hd V2653) (let V2654 (shen.lazyderef (tl V2653) V2862) (if (= () V2654) (let V2655 (shen.lazyderef (tl V2644) V2862) (if (= () V2655) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2655) (do (shen.bindv V2655 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2655 V2862) Result))) false))) (if (shen.pvar? V2654) (do (shen.bindv V2654 () V2862) (let Result (let V2656 (shen.lazyderef (tl V2644) V2862) (if (= () V2656) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2656) (do (shen.bindv V2656 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2656 V2862) Result))) false))) (do (shen.unbindv V2654 V2862) Result))) false)))) (if (shen.pvar? V2653) (let B (shen.newpv V2862) (do (shen.bindv V2653 (cons B ()) V2862) (let Result (let V2657 (shen.lazyderef (tl V2644) V2862) (if (= () V2657) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2657) (do (shen.bindv V2657 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2657 V2862) Result))) false))) (do (shen.unbindv V2653 V2862) Result)))) false))) (do (shen.unbindv V2647 V2862) Result))) false))) (if (shen.pvar? V2646) (let B (shen.newpv V2862) (do (shen.bindv V2646 (cons * (cons B ())) V2862) (let Result (let V2658 (shen.lazyderef (tl V2644) V2862) (if (= () V2658) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2658) (do (shen.bindv V2658 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2658 V2862) Result))) false))) (do (shen.unbindv V2646 V2862) Result)))) false)))) (if (shen.pvar? V2645) (let A (shen.newpv V2862) (let B (shen.newpv V2862) (do (shen.bindv V2645 (cons A (cons * (cons B ()))) V2862) (let Result (let V2659 (shen.lazyderef (tl V2644) V2862) (if (= () V2659) (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2659) (do (shen.bindv V2659 () V2862) (let Result (let Hyp (tl V2635) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (shen.lazyderef B V2862) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2659 V2862) Result))) false))) (do (shen.unbindv V2645 V2862) Result))))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2660 (shen.lazyderef V2860 V2862) (if (cons? V2660) (let V2661 (shen.lazyderef (hd V2660) V2862) (if (cons? V2661) (let V2662 (shen.lazyderef (hd V2661) V2862) (if (cons? V2662) (let V2663 (shen.lazyderef (hd V2662) V2862) (if (= @v V2663) (let V2664 (shen.lazyderef (tl V2662) V2862) (if (cons? V2664) (let X (hd V2664) (let V2665 (shen.lazyderef (tl V2664) V2862) (if (cons? V2665) (let Y (hd V2665) (let V2666 (shen.lazyderef (tl V2665) V2862) (if (= () V2666) (let V2667 (shen.lazyderef (tl V2661) V2862) (if (cons? V2667) (let V2668 (shen.lazyderef (hd V2667) V2862) (if (= : V2668) (let V2669 (shen.lazyderef (tl V2667) V2862) (if (cons? V2669) (let V2670 (shen.lazyderef (hd V2669) V2862) (if (cons? V2670) (let V2671 (shen.lazyderef (hd V2670) V2862) (if (= vector V2671) (let V2672 (shen.lazyderef (tl V2670) V2862) (if (cons? V2672) (let A (hd V2672) (let V2673 (shen.lazyderef (tl V2672) V2862) (if (= () V2673) (let V2674 (shen.lazyderef (tl V2669) V2862) (if (= () V2674) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2674) (do (shen.bindv V2674 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2674 V2862) Result))) false))) (if (shen.pvar? V2673) (do (shen.bindv V2673 () V2862) (let Result (let V2675 (shen.lazyderef (tl V2669) V2862) (if (= () V2675) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2675) (do (shen.bindv V2675 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2675 V2862) Result))) false))) (do (shen.unbindv V2673 V2862) Result))) false)))) (if (shen.pvar? V2672) (let A (shen.newpv V2862) (do (shen.bindv V2672 (cons A ()) V2862) (let Result (let V2676 (shen.lazyderef (tl V2669) V2862) (if (= () V2676) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2676) (do (shen.bindv V2676 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2676 V2862) Result))) false))) (do (shen.unbindv V2672 V2862) Result)))) false))) (if (shen.pvar? V2671) (do (shen.bindv V2671 vector V2862) (let Result (let V2677 (shen.lazyderef (tl V2670) V2862) (if (cons? V2677) (let A (hd V2677) (let V2678 (shen.lazyderef (tl V2677) V2862) (if (= () V2678) (let V2679 (shen.lazyderef (tl V2669) V2862) (if (= () V2679) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2679) (do (shen.bindv V2679 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2679 V2862) Result))) false))) (if (shen.pvar? V2678) (do (shen.bindv V2678 () V2862) (let Result (let V2680 (shen.lazyderef (tl V2669) V2862) (if (= () V2680) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2680) (do (shen.bindv V2680 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2680 V2862) Result))) false))) (do (shen.unbindv V2678 V2862) Result))) false)))) (if (shen.pvar? V2677) (let A (shen.newpv V2862) (do (shen.bindv V2677 (cons A ()) V2862) (let Result (let V2681 (shen.lazyderef (tl V2669) V2862) (if (= () V2681) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2681) (do (shen.bindv V2681 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2681 V2862) Result))) false))) (do (shen.unbindv V2677 V2862) Result)))) false))) (do (shen.unbindv V2671 V2862) Result))) false))) (if (shen.pvar? V2670) (let A (shen.newpv V2862) (do (shen.bindv V2670 (cons vector (cons A ())) V2862) (let Result (let V2682 (shen.lazyderef (tl V2669) V2862) (if (= () V2682) (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2682) (do (shen.bindv V2682 () V2862) (let Result (let Hyp (tl V2660) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons (shen.lazyderef A V2862) ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons (cons vector (cons (shen.lazyderef A V2862) ())) ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2682 V2862) Result))) false))) (do (shen.unbindv V2670 V2862) Result)))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2683 (shen.lazyderef V2860 V2862) (if (cons? V2683) (let V2684 (shen.lazyderef (hd V2683) V2862) (if (cons? V2684) (let V2685 (shen.lazyderef (hd V2684) V2862) (if (cons? V2685) (let V2686 (shen.lazyderef (hd V2685) V2862) (if (= @s V2686) (let V2687 (shen.lazyderef (tl V2685) V2862) (if (cons? V2687) (let X (hd V2687) (let V2688 (shen.lazyderef (tl V2687) V2862) (if (cons? V2688) (let Y (hd V2688) (let V2689 (shen.lazyderef (tl V2688) V2862) (if (= () V2689) (let V2690 (shen.lazyderef (tl V2684) V2862) (if (cons? V2690) (let V2691 (shen.lazyderef (hd V2690) V2862) (if (= : V2691) (let V2692 (shen.lazyderef (tl V2690) V2862) (if (cons? V2692) (let V2693 (shen.lazyderef (hd V2692) V2862) (if (= string V2693) (let V2694 (shen.lazyderef (tl V2692) V2862) (if (= () V2694) (let Hyp (tl V2683) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons string ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2694) (do (shen.bindv V2694 () V2862) (let Result (let Hyp (tl V2683) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons string ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2694 V2862) Result))) false))) (if (shen.pvar? V2693) (do (shen.bindv V2693 string V2862) (let Result (let V2695 (shen.lazyderef (tl V2692) V2862) (if (= () V2695) (let Hyp (tl V2683) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons string ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (if (shen.pvar? V2695) (do (shen.bindv V2695 () V2862) (let Result (let Hyp (tl V2683) (do (shen.incinfs) (bind V2861 (cons (cons (shen.lazyderef X V2862) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2862) (cons : (cons string ()))) (shen.lazyderef Hyp V2862))) V2862 V2863))) (do (shen.unbindv V2695 V2862) Result))) false))) (do (shen.unbindv V2693 V2862) Result))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let V2696 (shen.lazyderef V2860 V2862) (if (cons? V2696) (let X (hd V2696) (let Hyp (tl V2696) (let NewHyps (shen.newpv V2862) (do (shen.incinfs) (bind V2861 (cons (shen.lazyderef X V2862) (shen.lazyderef NewHyps V2862)) V2862 (freeze (shen.t*-hyps Hyp NewHyps V2862 V2863))))))) false)) Case)) Case)) Case)) Case)))
75
+ (defun shen.t*-hyps (V2916 V2917 V2918 V2919) (let Case (let V2663 (shen.lazyderef V2916 V2918) (if (cons? V2663) (let V2664 (shen.lazyderef (hd V2663) V2918) (if (cons? V2664) (let V2665 (shen.lazyderef (hd V2664) V2918) (if (cons? V2665) (let V2666 (shen.lazyderef (hd V2665) V2918) (if (= cons V2666) (let V2667 (shen.lazyderef (tl V2665) V2918) (if (cons? V2667) (let X (hd V2667) (let V2668 (shen.lazyderef (tl V2667) V2918) (if (cons? V2668) (let Y (hd V2668) (let V2669 (shen.lazyderef (tl V2668) V2918) (if (= () V2669) (let V2670 (shen.lazyderef (tl V2664) V2918) (if (cons? V2670) (let V2671 (shen.lazyderef (hd V2670) V2918) (if (= : V2671) (let V2672 (shen.lazyderef (tl V2670) V2918) (if (cons? V2672) (let V2673 (shen.lazyderef (hd V2672) V2918) (if (cons? V2673) (let V2674 (shen.lazyderef (hd V2673) V2918) (if (= list V2674) (let V2675 (shen.lazyderef (tl V2673) V2918) (if (cons? V2675) (let A (hd V2675) (let V2676 (shen.lazyderef (tl V2675) V2918) (if (= () V2676) (let V2677 (shen.lazyderef (tl V2672) V2918) (if (= () V2677) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2677) (do (shen.bindv V2677 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2677 V2918) Result))) false))) (if (shen.pvar? V2676) (do (shen.bindv V2676 () V2918) (let Result (let V2678 (shen.lazyderef (tl V2672) V2918) (if (= () V2678) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2678) (do (shen.bindv V2678 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2678 V2918) Result))) false))) (do (shen.unbindv V2676 V2918) Result))) false)))) (if (shen.pvar? V2675) (let A (shen.newpv V2918) (do (shen.bindv V2675 (cons A ()) V2918) (let Result (let V2679 (shen.lazyderef (tl V2672) V2918) (if (= () V2679) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2679) (do (shen.bindv V2679 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2679 V2918) Result))) false))) (do (shen.unbindv V2675 V2918) Result)))) false))) (if (shen.pvar? V2674) (do (shen.bindv V2674 list V2918) (let Result (let V2680 (shen.lazyderef (tl V2673) V2918) (if (cons? V2680) (let A (hd V2680) (let V2681 (shen.lazyderef (tl V2680) V2918) (if (= () V2681) (let V2682 (shen.lazyderef (tl V2672) V2918) (if (= () V2682) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2682) (do (shen.bindv V2682 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2682 V2918) Result))) false))) (if (shen.pvar? V2681) (do (shen.bindv V2681 () V2918) (let Result (let V2683 (shen.lazyderef (tl V2672) V2918) (if (= () V2683) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2683) (do (shen.bindv V2683 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2683 V2918) Result))) false))) (do (shen.unbindv V2681 V2918) Result))) false)))) (if (shen.pvar? V2680) (let A (shen.newpv V2918) (do (shen.bindv V2680 (cons A ()) V2918) (let Result (let V2684 (shen.lazyderef (tl V2672) V2918) (if (= () V2684) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2684) (do (shen.bindv V2684 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2684 V2918) Result))) false))) (do (shen.unbindv V2680 V2918) Result)))) false))) (do (shen.unbindv V2674 V2918) Result))) false))) (if (shen.pvar? V2673) (let A (shen.newpv V2918) (do (shen.bindv V2673 (cons list (cons A ())) V2918) (let Result (let V2685 (shen.lazyderef (tl V2672) V2918) (if (= () V2685) (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2685) (do (shen.bindv V2685 () V2918) (let Result (let Hyp (tl V2663) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons list (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2685 V2918) Result))) false))) (do (shen.unbindv V2673 V2918) Result)))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2686 (shen.lazyderef V2916 V2918) (if (cons? V2686) (let V2687 (shen.lazyderef (hd V2686) V2918) (if (cons? V2687) (let V2688 (shen.lazyderef (hd V2687) V2918) (if (cons? V2688) (let V2689 (shen.lazyderef (hd V2688) V2918) (if (= @p V2689) (let V2690 (shen.lazyderef (tl V2688) V2918) (if (cons? V2690) (let X (hd V2690) (let V2691 (shen.lazyderef (tl V2690) V2918) (if (cons? V2691) (let Y (hd V2691) (let V2692 (shen.lazyderef (tl V2691) V2918) (if (= () V2692) (let V2693 (shen.lazyderef (tl V2687) V2918) (if (cons? V2693) (let V2694 (shen.lazyderef (hd V2693) V2918) (if (= : V2694) (let V2695 (shen.lazyderef (tl V2693) V2918) (if (cons? V2695) (let V2696 (shen.lazyderef (hd V2695) V2918) (if (cons? V2696) (let A (hd V2696) (let V2697 (shen.lazyderef (tl V2696) V2918) (if (cons? V2697) (let V2698 (shen.lazyderef (hd V2697) V2918) (if (= * V2698) (let V2699 (shen.lazyderef (tl V2697) V2918) (if (cons? V2699) (let B (hd V2699) (let V2700 (shen.lazyderef (tl V2699) V2918) (if (= () V2700) (let V2701 (shen.lazyderef (tl V2695) V2918) (if (= () V2701) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2701) (do (shen.bindv V2701 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2701 V2918) Result))) false))) (if (shen.pvar? V2700) (do (shen.bindv V2700 () V2918) (let Result (let V2702 (shen.lazyderef (tl V2695) V2918) (if (= () V2702) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2702) (do (shen.bindv V2702 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2702 V2918) Result))) false))) (do (shen.unbindv V2700 V2918) Result))) false)))) (if (shen.pvar? V2699) (let B (shen.newpv V2918) (do (shen.bindv V2699 (cons B ()) V2918) (let Result (let V2703 (shen.lazyderef (tl V2695) V2918) (if (= () V2703) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2703) (do (shen.bindv V2703 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2703 V2918) Result))) false))) (do (shen.unbindv V2699 V2918) Result)))) false))) (if (shen.pvar? V2698) (do (shen.bindv V2698 * V2918) (let Result (let V2704 (shen.lazyderef (tl V2697) V2918) (if (cons? V2704) (let B (hd V2704) (let V2705 (shen.lazyderef (tl V2704) V2918) (if (= () V2705) (let V2706 (shen.lazyderef (tl V2695) V2918) (if (= () V2706) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2706) (do (shen.bindv V2706 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2706 V2918) Result))) false))) (if (shen.pvar? V2705) (do (shen.bindv V2705 () V2918) (let Result (let V2707 (shen.lazyderef (tl V2695) V2918) (if (= () V2707) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2707) (do (shen.bindv V2707 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2707 V2918) Result))) false))) (do (shen.unbindv V2705 V2918) Result))) false)))) (if (shen.pvar? V2704) (let B (shen.newpv V2918) (do (shen.bindv V2704 (cons B ()) V2918) (let Result (let V2708 (shen.lazyderef (tl V2695) V2918) (if (= () V2708) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2708) (do (shen.bindv V2708 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2708 V2918) Result))) false))) (do (shen.unbindv V2704 V2918) Result)))) false))) (do (shen.unbindv V2698 V2918) Result))) false))) (if (shen.pvar? V2697) (let B (shen.newpv V2918) (do (shen.bindv V2697 (cons * (cons B ())) V2918) (let Result (let V2709 (shen.lazyderef (tl V2695) V2918) (if (= () V2709) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2709) (do (shen.bindv V2709 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2709 V2918) Result))) false))) (do (shen.unbindv V2697 V2918) Result)))) false)))) (if (shen.pvar? V2696) (let A (shen.newpv V2918) (let B (shen.newpv V2918) (do (shen.bindv V2696 (cons A (cons * (cons B ()))) V2918) (let Result (let V2710 (shen.lazyderef (tl V2695) V2918) (if (= () V2710) (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2710) (do (shen.bindv V2710 () V2918) (let Result (let Hyp (tl V2686) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (shen.lazyderef B V2918) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2710 V2918) Result))) false))) (do (shen.unbindv V2696 V2918) Result))))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2711 (shen.lazyderef V2916 V2918) (if (cons? V2711) (let V2712 (shen.lazyderef (hd V2711) V2918) (if (cons? V2712) (let V2713 (shen.lazyderef (hd V2712) V2918) (if (cons? V2713) (let V2714 (shen.lazyderef (hd V2713) V2918) (if (= @v V2714) (let V2715 (shen.lazyderef (tl V2713) V2918) (if (cons? V2715) (let X (hd V2715) (let V2716 (shen.lazyderef (tl V2715) V2918) (if (cons? V2716) (let Y (hd V2716) (let V2717 (shen.lazyderef (tl V2716) V2918) (if (= () V2717) (let V2718 (shen.lazyderef (tl V2712) V2918) (if (cons? V2718) (let V2719 (shen.lazyderef (hd V2718) V2918) (if (= : V2719) (let V2720 (shen.lazyderef (tl V2718) V2918) (if (cons? V2720) (let V2721 (shen.lazyderef (hd V2720) V2918) (if (cons? V2721) (let V2722 (shen.lazyderef (hd V2721) V2918) (if (= vector V2722) (let V2723 (shen.lazyderef (tl V2721) V2918) (if (cons? V2723) (let A (hd V2723) (let V2724 (shen.lazyderef (tl V2723) V2918) (if (= () V2724) (let V2725 (shen.lazyderef (tl V2720) V2918) (if (= () V2725) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2725) (do (shen.bindv V2725 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2725 V2918) Result))) false))) (if (shen.pvar? V2724) (do (shen.bindv V2724 () V2918) (let Result (let V2726 (shen.lazyderef (tl V2720) V2918) (if (= () V2726) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2726) (do (shen.bindv V2726 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2726 V2918) Result))) false))) (do (shen.unbindv V2724 V2918) Result))) false)))) (if (shen.pvar? V2723) (let A (shen.newpv V2918) (do (shen.bindv V2723 (cons A ()) V2918) (let Result (let V2727 (shen.lazyderef (tl V2720) V2918) (if (= () V2727) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2727) (do (shen.bindv V2727 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2727 V2918) Result))) false))) (do (shen.unbindv V2723 V2918) Result)))) false))) (if (shen.pvar? V2722) (do (shen.bindv V2722 vector V2918) (let Result (let V2728 (shen.lazyderef (tl V2721) V2918) (if (cons? V2728) (let A (hd V2728) (let V2729 (shen.lazyderef (tl V2728) V2918) (if (= () V2729) (let V2730 (shen.lazyderef (tl V2720) V2918) (if (= () V2730) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2730) (do (shen.bindv V2730 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2730 V2918) Result))) false))) (if (shen.pvar? V2729) (do (shen.bindv V2729 () V2918) (let Result (let V2731 (shen.lazyderef (tl V2720) V2918) (if (= () V2731) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2731) (do (shen.bindv V2731 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2731 V2918) Result))) false))) (do (shen.unbindv V2729 V2918) Result))) false)))) (if (shen.pvar? V2728) (let A (shen.newpv V2918) (do (shen.bindv V2728 (cons A ()) V2918) (let Result (let V2732 (shen.lazyderef (tl V2720) V2918) (if (= () V2732) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2732) (do (shen.bindv V2732 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2732 V2918) Result))) false))) (do (shen.unbindv V2728 V2918) Result)))) false))) (do (shen.unbindv V2722 V2918) Result))) false))) (if (shen.pvar? V2721) (let A (shen.newpv V2918) (do (shen.bindv V2721 (cons vector (cons A ())) V2918) (let Result (let V2733 (shen.lazyderef (tl V2720) V2918) (if (= () V2733) (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2733) (do (shen.bindv V2733 () V2918) (let Result (let Hyp (tl V2711) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons (shen.lazyderef A V2918) ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons (cons vector (cons (shen.lazyderef A V2918) ())) ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2733 V2918) Result))) false))) (do (shen.unbindv V2721 V2918) Result)))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2734 (shen.lazyderef V2916 V2918) (if (cons? V2734) (let V2735 (shen.lazyderef (hd V2734) V2918) (if (cons? V2735) (let V2736 (shen.lazyderef (hd V2735) V2918) (if (cons? V2736) (let V2737 (shen.lazyderef (hd V2736) V2918) (if (= @s V2737) (let V2738 (shen.lazyderef (tl V2736) V2918) (if (cons? V2738) (let X (hd V2738) (let V2739 (shen.lazyderef (tl V2738) V2918) (if (cons? V2739) (let Y (hd V2739) (let V2740 (shen.lazyderef (tl V2739) V2918) (if (= () V2740) (let V2741 (shen.lazyderef (tl V2735) V2918) (if (cons? V2741) (let V2742 (shen.lazyderef (hd V2741) V2918) (if (= : V2742) (let V2743 (shen.lazyderef (tl V2741) V2918) (if (cons? V2743) (let V2744 (shen.lazyderef (hd V2743) V2918) (if (= string V2744) (let V2745 (shen.lazyderef (tl V2743) V2918) (if (= () V2745) (let Hyp (tl V2734) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons string ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2745) (do (shen.bindv V2745 () V2918) (let Result (let Hyp (tl V2734) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons string ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2745 V2918) Result))) false))) (if (shen.pvar? V2744) (do (shen.bindv V2744 string V2918) (let Result (let V2746 (shen.lazyderef (tl V2743) V2918) (if (= () V2746) (let Hyp (tl V2734) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons string ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (if (shen.pvar? V2746) (do (shen.bindv V2746 () V2918) (let Result (let Hyp (tl V2734) (do (shen.incinfs) (bind V2917 (cons (cons (shen.lazyderef X V2918) (cons : (cons string ()))) (cons (cons (shen.lazyderef Y V2918) (cons : (cons string ()))) (shen.lazyderef Hyp V2918))) V2918 V2919))) (do (shen.unbindv V2746 V2918) Result))) false))) (do (shen.unbindv V2744 V2918) Result))) false))) false)) false)) false)) false))) false))) false)) false)) false)) false)) false)) (if (= Case false) (let V2747 (shen.lazyderef V2916 V2918) (if (cons? V2747) (let X (hd V2747) (let Hyp (tl V2747) (let NewHyps (shen.newpv V2918) (do (shen.incinfs) (bind V2917 (cons (shen.lazyderef X V2918) (shen.lazyderef NewHyps V2918)) V2918 (freeze (shen.t*-hyps Hyp NewHyps V2918 V2919))))))) false)) Case)) Case)) Case)) Case)))
76
76
 
77
- (defun shen.show (V2876 V2877 V2878 V2879) (cond ((value shen.*spy*) (do (shen.line) (do (shen.show-p (shen.deref V2876 V2878)) (do (nl 1) (do (nl 1) (do (shen.show-assumptions (shen.deref V2877 V2878) 1) (do (shen.prhush "
78
- > " (stoutput)) (do (shen.pause-for-user) (thaw V2879))))))))) (true (thaw V2879))))
77
+ (defun shen.show (V2932 V2933 V2934 V2935) (cond ((value shen.*spy*) (do (shen.line) (do (shen.show-p (shen.deref V2932 V2934)) (do (nl 1) (do (nl 1) (do (shen.show-assumptions (shen.deref V2933 V2934) 1) (do (shen.prhush "
78
+ > " (stoutput)) (do (shen.pause-for-user) (thaw V2935))))))))) (true (thaw V2935))))
79
79
 
80
80
  (defun shen.line () (let Infs (inferences) (shen.prhush (cn "____________________________________________________________ " (shen.app Infs (cn " inference" (shen.app (if (= 1 Infs) "" "s") "
81
81
  ?- " shen.a)) shen.a)) (stoutput))))
82
82
 
83
- (defun shen.show-p (V2880) (cond ((and (cons? V2880) (and (cons? (tl V2880)) (and (= : (hd (tl V2880))) (and (cons? (tl (tl V2880))) (= () (tl (tl (tl V2880)))))))) (shen.prhush (shen.app (hd V2880) (cn " : " (shen.app (hd (tl (tl V2880))) "" shen.r)) shen.r) (stoutput))) (true (shen.prhush (shen.app V2880 "" shen.r) (stoutput)))))
83
+ (defun shen.show-p (V2936) (cond ((and (cons? V2936) (and (cons? (tl V2936)) (and (= : (hd (tl V2936))) (and (cons? (tl (tl V2936))) (= () (tl (tl (tl V2936)))))))) (shen.prhush (shen.app (hd V2936) (cn " : " (shen.app (hd (tl (tl V2936))) "" shen.r)) shen.r) (stoutput))) (true (shen.prhush (shen.app V2936 "" shen.r) (stoutput)))))
84
84
 
85
- (defun shen.show-assumptions (V2883 V2884) (cond ((= () V2883) shen.skip) ((cons? V2883) (do (shen.prhush (shen.app V2884 ". " shen.a) (stoutput)) (do (shen.show-p (hd V2883)) (do (nl 1) (shen.show-assumptions (tl V2883) (+ V2884 1)))))) (true (shen.sys-error shen.show-assumptions))))
85
+ (defun shen.show-assumptions (V2939 V2940) (cond ((= () V2939) shen.skip) ((cons? V2939) (do (shen.prhush (shen.app V2940 ". " shen.a) (stoutput)) (do (shen.show-p (hd V2939)) (do (nl 1) (shen.show-assumptions (tl V2939) (+ V2940 1)))))) (true (shen.sys-error shen.show-assumptions))))
86
86
 
87
87
  (defun shen.pause-for-user () (let Byte (read-byte (stinput)) (if (= Byte 94) (simple-error "input aborted
88
88
  ") (nl 1))))
89
89
 
90
- (defun shen.typedf? (V2885) (cons? (assoc V2885 (value shen.*signedfuncs*))))
90
+ (defun shen.typedf? (V2941) (cons? (assoc V2941 (value shen.*signedfuncs*))))
91
91
 
92
- (defun shen.sigf (V2886) (concat shen.type-signature-of- V2886))
92
+ (defun shen.sigf (V2942) (concat shen.type-signature-of- V2942))
93
93
 
94
94
  (defun shen.placeholder () (gensym &&))
95
95
 
96
- (defun shen.base (V2887 V2888 V2889 V2890) (let Case (let V2599 (shen.lazyderef V2888 V2889) (if (= number V2599) (do (shen.incinfs) (fwhen (number? (shen.lazyderef V2887 V2889)) V2889 V2890)) (if (shen.pvar? V2599) (do (shen.bindv V2599 number V2889) (let Result (do (shen.incinfs) (fwhen (number? (shen.lazyderef V2887 V2889)) V2889 V2890)) (do (shen.unbindv V2599 V2889) Result))) false))) (if (= Case false) (let Case (let V2600 (shen.lazyderef V2888 V2889) (if (= boolean V2600) (do (shen.incinfs) (fwhen (boolean? (shen.lazyderef V2887 V2889)) V2889 V2890)) (if (shen.pvar? V2600) (do (shen.bindv V2600 boolean V2889) (let Result (do (shen.incinfs) (fwhen (boolean? (shen.lazyderef V2887 V2889)) V2889 V2890)) (do (shen.unbindv V2600 V2889) Result))) false))) (if (= Case false) (let Case (let V2601 (shen.lazyderef V2888 V2889) (if (= string V2601) (do (shen.incinfs) (fwhen (string? (shen.lazyderef V2887 V2889)) V2889 V2890)) (if (shen.pvar? V2601) (do (shen.bindv V2601 string V2889) (let Result (do (shen.incinfs) (fwhen (string? (shen.lazyderef V2887 V2889)) V2889 V2890)) (do (shen.unbindv V2601 V2889) Result))) false))) (if (= Case false) (let Case (let V2602 (shen.lazyderef V2888 V2889) (if (= symbol V2602) (do (shen.incinfs) (fwhen (symbol? (shen.lazyderef V2887 V2889)) V2889 (freeze (fwhen (not (shen.ue? (shen.lazyderef V2887 V2889))) V2889 V2890)))) (if (shen.pvar? V2602) (do (shen.bindv V2602 symbol V2889) (let Result (do (shen.incinfs) (fwhen (symbol? (shen.lazyderef V2887 V2889)) V2889 (freeze (fwhen (not (shen.ue? (shen.lazyderef V2887 V2889))) V2889 V2890)))) (do (shen.unbindv V2602 V2889) Result))) false))) (if (= Case false) (let V2603 (shen.lazyderef V2887 V2889) (if (= () V2603) (let V2604 (shen.lazyderef V2888 V2889) (if (cons? V2604) (let V2605 (shen.lazyderef (hd V2604) V2889) (if (= list V2605) (let V2606 (shen.lazyderef (tl V2604) V2889) (if (cons? V2606) (let A (hd V2606) (let V2607 (shen.lazyderef (tl V2606) V2889) (if (= () V2607) (do (shen.incinfs) (thaw V2890)) (if (shen.pvar? V2607) (do (shen.bindv V2607 () V2889) (let Result (do (shen.incinfs) (thaw V2890)) (do (shen.unbindv V2607 V2889) Result))) false)))) (if (shen.pvar? V2606) (let A (shen.newpv V2889) (do (shen.bindv V2606 (cons A ()) V2889) (let Result (do (shen.incinfs) (thaw V2890)) (do (shen.unbindv V2606 V2889) Result)))) false))) (if (shen.pvar? V2605) (do (shen.bindv V2605 list V2889) (let Result (let V2608 (shen.lazyderef (tl V2604) V2889) (if (cons? V2608) (let A (hd V2608) (let V2609 (shen.lazyderef (tl V2608) V2889) (if (= () V2609) (do (shen.incinfs) (thaw V2890)) (if (shen.pvar? V2609) (do (shen.bindv V2609 () V2889) (let Result (do (shen.incinfs) (thaw V2890)) (do (shen.unbindv V2609 V2889) Result))) false)))) (if (shen.pvar? V2608) (let A (shen.newpv V2889) (do (shen.bindv V2608 (cons A ()) V2889) (let Result (do (shen.incinfs) (thaw V2890)) (do (shen.unbindv V2608 V2889) Result)))) false))) (do (shen.unbindv V2605 V2889) Result))) false))) (if (shen.pvar? V2604) (let A (shen.newpv V2889) (do (shen.bindv V2604 (cons list (cons A ())) V2889) (let Result (do (shen.incinfs) (thaw V2890)) (do (shen.unbindv V2604 V2889) Result)))) false))) false)) Case)) Case)) Case)) Case)))
96
+ (defun shen.base (V2943 V2944 V2945 V2946) (let Case (let V2650 (shen.lazyderef V2944 V2945) (if (= number V2650) (do (shen.incinfs) (fwhen (number? (shen.lazyderef V2943 V2945)) V2945 V2946)) (if (shen.pvar? V2650) (do (shen.bindv V2650 number V2945) (let Result (do (shen.incinfs) (fwhen (number? (shen.lazyderef V2943 V2945)) V2945 V2946)) (do (shen.unbindv V2650 V2945) Result))) false))) (if (= Case false) (let Case (let V2651 (shen.lazyderef V2944 V2945) (if (= boolean V2651) (do (shen.incinfs) (fwhen (boolean? (shen.lazyderef V2943 V2945)) V2945 V2946)) (if (shen.pvar? V2651) (do (shen.bindv V2651 boolean V2945) (let Result (do (shen.incinfs) (fwhen (boolean? (shen.lazyderef V2943 V2945)) V2945 V2946)) (do (shen.unbindv V2651 V2945) Result))) false))) (if (= Case false) (let Case (let V2652 (shen.lazyderef V2944 V2945) (if (= string V2652) (do (shen.incinfs) (fwhen (string? (shen.lazyderef V2943 V2945)) V2945 V2946)) (if (shen.pvar? V2652) (do (shen.bindv V2652 string V2945) (let Result (do (shen.incinfs) (fwhen (string? (shen.lazyderef V2943 V2945)) V2945 V2946)) (do (shen.unbindv V2652 V2945) Result))) false))) (if (= Case false) (let Case (let V2653 (shen.lazyderef V2944 V2945) (if (= symbol V2653) (do (shen.incinfs) (fwhen (symbol? (shen.lazyderef V2943 V2945)) V2945 (freeze (fwhen (not (shen.ue? (shen.lazyderef V2943 V2945))) V2945 V2946)))) (if (shen.pvar? V2653) (do (shen.bindv V2653 symbol V2945) (let Result (do (shen.incinfs) (fwhen (symbol? (shen.lazyderef V2943 V2945)) V2945 (freeze (fwhen (not (shen.ue? (shen.lazyderef V2943 V2945))) V2945 V2946)))) (do (shen.unbindv V2653 V2945) Result))) false))) (if (= Case false) (let V2654 (shen.lazyderef V2943 V2945) (if (= () V2654) (let V2655 (shen.lazyderef V2944 V2945) (if (cons? V2655) (let V2656 (shen.lazyderef (hd V2655) V2945) (if (= list V2656) (let V2657 (shen.lazyderef (tl V2655) V2945) (if (cons? V2657) (let A (hd V2657) (let V2658 (shen.lazyderef (tl V2657) V2945) (if (= () V2658) (do (shen.incinfs) (thaw V2946)) (if (shen.pvar? V2658) (do (shen.bindv V2658 () V2945) (let Result (do (shen.incinfs) (thaw V2946)) (do (shen.unbindv V2658 V2945) Result))) false)))) (if (shen.pvar? V2657) (let A (shen.newpv V2945) (do (shen.bindv V2657 (cons A ()) V2945) (let Result (do (shen.incinfs) (thaw V2946)) (do (shen.unbindv V2657 V2945) Result)))) false))) (if (shen.pvar? V2656) (do (shen.bindv V2656 list V2945) (let Result (let V2659 (shen.lazyderef (tl V2655) V2945) (if (cons? V2659) (let A (hd V2659) (let V2660 (shen.lazyderef (tl V2659) V2945) (if (= () V2660) (do (shen.incinfs) (thaw V2946)) (if (shen.pvar? V2660) (do (shen.bindv V2660 () V2945) (let Result (do (shen.incinfs) (thaw V2946)) (do (shen.unbindv V2660 V2945) Result))) false)))) (if (shen.pvar? V2659) (let A (shen.newpv V2945) (do (shen.bindv V2659 (cons A ()) V2945) (let Result (do (shen.incinfs) (thaw V2946)) (do (shen.unbindv V2659 V2945) Result)))) false))) (do (shen.unbindv V2656 V2945) Result))) false))) (if (shen.pvar? V2655) (let A (shen.newpv V2945) (do (shen.bindv V2655 (cons list (cons A ())) V2945) (let Result (do (shen.incinfs) (thaw V2946)) (do (shen.unbindv V2655 V2945) Result)))) false))) false)) Case)) Case)) Case)) Case)))
97
97
 
98
- (defun shen.by_hypothesis (V2891 V2892 V2893 V2894 V2895) (let Case (let V2590 (shen.lazyderef V2893 V2894) (if (cons? V2590) (let V2591 (shen.lazyderef (hd V2590) V2894) (if (cons? V2591) (let Y (hd V2591) (let V2592 (shen.lazyderef (tl V2591) V2894) (if (cons? V2592) (let V2593 (shen.lazyderef (hd V2592) V2894) (if (= : V2593) (let V2594 (shen.lazyderef (tl V2592) V2894) (if (cons? V2594) (let B (hd V2594) (let V2595 (shen.lazyderef (tl V2594) V2894) (if (= () V2595) (do (shen.incinfs) (identical V2891 Y V2894 (freeze (unify! V2892 B V2894 V2895)))) false))) false)) false)) false))) false)) false)) (if (= Case false) (let V2596 (shen.lazyderef V2893 V2894) (if (cons? V2596) (let Hyp (tl V2596) (do (shen.incinfs) (shen.by_hypothesis V2891 V2892 Hyp V2894 V2895))) false)) Case)))
98
+ (defun shen.by_hypothesis (V2947 V2948 V2949 V2950 V2951) (let Case (let V2641 (shen.lazyderef V2949 V2950) (if (cons? V2641) (let V2642 (shen.lazyderef (hd V2641) V2950) (if (cons? V2642) (let Y (hd V2642) (let V2643 (shen.lazyderef (tl V2642) V2950) (if (cons? V2643) (let V2644 (shen.lazyderef (hd V2643) V2950) (if (= : V2644) (let V2645 (shen.lazyderef (tl V2643) V2950) (if (cons? V2645) (let B (hd V2645) (let V2646 (shen.lazyderef (tl V2645) V2950) (if (= () V2646) (do (shen.incinfs) (identical V2947 Y V2950 (freeze (unify! V2948 B V2950 V2951)))) false))) false)) false)) false))) false)) false)) (if (= Case false) (let V2647 (shen.lazyderef V2949 V2950) (if (cons? V2647) (let Hyp (tl V2647) (do (shen.incinfs) (shen.by_hypothesis V2947 V2948 Hyp V2950 V2951))) false)) Case)))
99
99
 
100
- (defun shen.t*-def (V2896 V2897 V2898 V2899 V2900) (let V2584 (shen.lazyderef V2896 V2899) (if (cons? V2584) (let V2585 (shen.lazyderef (hd V2584) V2899) (if (= define V2585) (let V2586 (shen.lazyderef (tl V2584) V2899) (if (cons? V2586) (let F (hd V2586) (let X (tl V2586) (let E (shen.newpv V2899) (do (shen.incinfs) (shen.t*-defh (compile shen.<sig+rules> X (lambda E (if (cons? E) (simple-error (cn "parse error here: " (shen.app E "
100
+ (defun shen.t*-def (V2952 V2953 V2954 V2955 V2956) (let V2635 (shen.lazyderef V2952 V2955) (if (cons? V2635) (let V2636 (shen.lazyderef (hd V2635) V2955) (if (= define V2636) (let V2637 (shen.lazyderef (tl V2635) V2955) (if (cons? V2637) (let F (hd V2637) (let X (tl V2637) (let E (shen.newpv V2955) (do (shen.incinfs) (shen.t*-defh (compile (lambda X2878 (shen.<sig+rules> X2878)) X (lambda E (if (cons? E) (simple-error (cn "parse error here: " (shen.app E "
101
101
  " shen.s))) (simple-error "parse error
102
- ")))) F V2897 V2898 V2899 V2900))))) false)) false)) false)))
102
+ ")))) F V2953 V2954 V2955 V2956))))) false)) false)) false)))
103
103
 
104
- (defun shen.t*-defh (V2901 V2902 V2903 V2904 V2905 V2906) (let V2580 (shen.lazyderef V2901 V2905) (if (cons? V2580) (let Sig (hd V2580) (let Rules (tl V2580) (do (shen.incinfs) (shen.t*-defhh Sig (shen.ue-sig Sig) V2902 V2903 V2904 Rules V2905 V2906)))) false)))
104
+ (defun shen.t*-defh (V2957 V2958 V2959 V2960 V2961 V2962) (let V2631 (shen.lazyderef V2957 V2961) (if (cons? V2631) (let Sig (hd V2631) (let Rules (tl V2631) (do (shen.incinfs) (shen.t*-defhh Sig (shen.ue-sig Sig) V2958 V2959 V2960 Rules V2961 V2962)))) false)))
105
105
 
106
- (defun shen.t*-defhh (V2907 V2908 V2909 V2910 V2911 V2912 V2913 V2914) (do (shen.incinfs) (shen.t*-rules V2912 V2908 1 V2909 (cons (cons V2909 (cons : (cons V2908 ()))) V2911) V2913 (freeze (shen.memo V2909 V2907 V2910 V2913 V2914)))))
106
+ (defun shen.t*-defhh (V2963 V2964 V2965 V2966 V2967 V2968 V2969 V2970) (do (shen.incinfs) (shen.t*-rules V2968 V2964 1 V2965 (cons (cons V2965 (cons : (cons V2964 ()))) V2967) V2969 (freeze (shen.memo V2965 V2963 V2966 V2969 V2970)))))
107
107
 
108
- (defun shen.memo (V2915 V2916 V2917 V2918 V2919) (let Jnk (shen.newpv V2918) (do (shen.incinfs) (unify! V2917 V2916 V2918 (freeze (bind Jnk (declare (shen.lazyderef V2915 V2918) (shen.lazyderef V2917 V2918)) V2918 V2919))))))
108
+ (defun shen.memo (V2971 V2972 V2973 V2974 V2975) (let Jnk (shen.newpv V2974) (do (shen.incinfs) (unify! V2973 V2972 V2974 (freeze (bind Jnk (declare (shen.lazyderef V2971 V2974) (shen.lazyderef V2973 V2974)) V2974 V2975))))))
109
109
 
110
- (defun shen.<sig+rules> (V2924) (let Result (let Parse_shen.<signature> (shen.<signature> V2924) (if (not (= (fail) Parse_shen.<signature>)) (let Parse_shen.<rules> (shen.<rules> Parse_shen.<signature>) (if (not (= (fail) Parse_shen.<rules>)) (shen.pair (hd Parse_shen.<rules>) (cons (shen.hdtl Parse_shen.<signature>) (shen.hdtl Parse_shen.<rules>))) (fail))) (fail))) (if (= Result (fail)) (fail) Result)))
110
+ (defun shen.<sig+rules> (V2980) (let Result (let Parse_shen.<signature> (shen.<signature> V2980) (if (not (= (fail) Parse_shen.<signature>)) (let Parse_shen.<rules> (shen.<rules> Parse_shen.<signature>) (if (not (= (fail) Parse_shen.<rules>)) (shen.pair (hd Parse_shen.<rules>) (cons (shen.hdtl Parse_shen.<signature>) (shen.hdtl Parse_shen.<rules>))) (fail))) (fail))) (if (= Result (fail)) (fail) Result)))
111
111
 
112
- (defun shen.ue (V2925) (cond ((and (cons? V2925) (and (cons? (tl V2925)) (and (= () (tl (tl V2925))) (= (hd V2925) protect)))) V2925) ((cons? V2925) (map shen.ue V2925)) ((variable? V2925) (concat && V2925)) (true V2925)))
112
+ (defun shen.ue (V2981) (cond ((and (cons? V2981) (and (cons? (tl V2981)) (and (= () (tl (tl V2981))) (= (hd V2981) protect)))) V2981) ((cons? V2981) (map (lambda X2879 (shen.ue X2879)) V2981)) ((variable? V2981) (concat && V2981)) (true V2981)))
113
113
 
114
- (defun shen.ue-sig (V2926) (cond ((cons? V2926) (map shen.ue-sig V2926)) ((variable? V2926) (concat &&& V2926)) (true V2926)))
114
+ (defun shen.ue-sig (V2982) (cond ((cons? V2982) (map (lambda X2880 (shen.ue-sig X2880)) V2982)) ((variable? V2982) (concat &&& V2982)) (true V2982)))
115
115
 
116
- (defun shen.ues (V2931) (cond ((shen.ue? V2931) (cons V2931 ())) ((cons? V2931) (union (shen.ues (hd V2931)) (shen.ues (tl V2931)))) (true ())))
116
+ (defun shen.ues (V2987) (cond ((shen.ue? V2987) (cons V2987 ())) ((cons? V2987) (union (shen.ues (hd V2987)) (shen.ues (tl V2987)))) (true ())))
117
117
 
118
- (defun shen.ue? (V2932) (and (symbol? V2932) (shen.ue-h? (str V2932))))
118
+ (defun shen.ue? (V2988) (and (symbol? V2988) (shen.ue-h? (str V2988))))
119
119
 
120
- (defun shen.ue-h? (V2939) (cond ((and (shen.+string? V2939) (and (= "&" (pos V2939 0)) (and (shen.+string? (tlstr V2939)) (= "&" (pos (tlstr V2939) 0))))) true) (true false)))
120
+ (defun shen.ue-h? (V2995) (cond ((and (shen.+string? V2995) (and (= "&" (pos V2995 0)) (and (shen.+string? (tlstr V2995)) (= "&" (pos (tlstr V2995) 0))))) true) (true false)))
121
121
 
122
- (defun shen.t*-rules (V2940 V2941 V2942 V2943 V2944 V2945 V2946) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2555 (shen.lazyderef V2940 V2945) (if (= () V2555) (do (shen.incinfs) (thaw V2946)) false)) (if (= Case false) (let Case (let V2556 (shen.lazyderef V2940 V2945) (if (cons? V2556) (let V2557 (shen.lazyderef (hd V2556) V2945) (if (cons? V2557) (let V2558 (shen.lazyderef (hd V2557) V2945) (if (= () V2558) (let V2559 (shen.lazyderef (tl V2557) V2945) (if (cons? V2559) (let Action (hd V2559) (let V2560 (shen.lazyderef (tl V2559) V2945) (if (= () V2560) (let Rules (tl V2556) (let V2561 (shen.lazyderef V2941 V2945) (if (cons? V2561) (let V2562 (shen.lazyderef (hd V2561) V2945) (if (= --> V2562) (let V2563 (shen.lazyderef (tl V2561) V2945) (if (cons? V2563) (let A (hd V2563) (let V2564 (shen.lazyderef (tl V2563) V2945) (if (= () V2564) (do (shen.incinfs) (shen.t*-rule (cons () (cons (shen.ue Action) ())) A V2944 V2945 (freeze (cut Throwcontrol V2945 (freeze (shen.t*-rules Rules A (+ V2942 1) V2943 V2944 V2945 V2946)))))) false))) false)) false)) false))) false))) false)) false)) false)) false)) (if (= Case false) (let Case (let V2565 (shen.lazyderef V2940 V2945) (if (cons? V2565) (let Rule (hd V2565) (let Rules (tl V2565) (do (shen.incinfs) (shen.t*-rule (shen.ue Rule) V2941 V2944 V2945 (freeze (cut Throwcontrol V2945 (freeze (shen.t*-rules Rules V2941 (+ V2942 1) V2943 V2944 V2945 V2946)))))))) false)) (if (= Case false) (let Err (shen.newpv V2945) (do (shen.incinfs) (bind Err (simple-error (cn "type error in rule " (shen.app (shen.lazyderef V2942 V2945) (cn " of " (shen.app (shen.lazyderef V2943 V2945) "" shen.a)) shen.a))) V2945 V2946))) Case)) Case)) Case)))))
122
+ (defun shen.t*-rules (V2996 V2997 V2998 V2999 V3000 V3001 V3002) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2606 (shen.lazyderef V2996 V3001) (if (= () V2606) (do (shen.incinfs) (thaw V3002)) false)) (if (= Case false) (let Case (let V2607 (shen.lazyderef V2996 V3001) (if (cons? V2607) (let V2608 (shen.lazyderef (hd V2607) V3001) (if (cons? V2608) (let V2609 (shen.lazyderef (hd V2608) V3001) (if (= () V2609) (let V2610 (shen.lazyderef (tl V2608) V3001) (if (cons? V2610) (let Action (hd V2610) (let V2611 (shen.lazyderef (tl V2610) V3001) (if (= () V2611) (let Rules (tl V2607) (let V2612 (shen.lazyderef V2997 V3001) (if (cons? V2612) (let V2613 (shen.lazyderef (hd V2612) V3001) (if (= --> V2613) (let V2614 (shen.lazyderef (tl V2612) V3001) (if (cons? V2614) (let A (hd V2614) (let V2615 (shen.lazyderef (tl V2614) V3001) (if (= () V2615) (do (shen.incinfs) (shen.t*-rule (cons () (cons (shen.ue Action) ())) A V3000 V3001 (freeze (cut Throwcontrol V3001 (freeze (shen.t*-rules Rules A (+ V2998 1) V2999 V3000 V3001 V3002)))))) false))) false)) false)) false))) false))) false)) false)) false)) false)) (if (= Case false) (let Case (let V2616 (shen.lazyderef V2996 V3001) (if (cons? V2616) (let Rule (hd V2616) (let Rules (tl V2616) (do (shen.incinfs) (shen.t*-rule (shen.ue Rule) V2997 V3000 V3001 (freeze (cut Throwcontrol V3001 (freeze (shen.t*-rules Rules V2997 (+ V2998 1) V2999 V3000 V3001 V3002)))))))) false)) (if (= Case false) (let Err (shen.newpv V3001) (do (shen.incinfs) (bind Err (simple-error (cn "type error in rule " (shen.app (shen.lazyderef V2998 V3001) (cn " of " (shen.app (shen.lazyderef V2999 V3001) "" shen.a)) shen.a))) V3001 V3002))) Case)) Case)) Case)))))
123
123
 
124
- (defun shen.t*-rule (V2947 V2948 V2949 V2950 V2951) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2537 (shen.lazyderef V2947 V2950) (if (cons? V2537) (let V2538 (shen.lazyderef (hd V2537) V2950) (if (= () V2538) (let V2539 (shen.lazyderef (tl V2537) V2950) (if (cons? V2539) (let Action (hd V2539) (let V2540 (shen.lazyderef (tl V2539) V2950) (if (= () V2540) (do (shen.incinfs) (cut Throwcontrol V2950 (freeze (shen.t*-action (shen.curry Action) V2948 V2949 V2950 V2951)))) false))) false)) false)) false)) (if (= Case false) (let V2541 (shen.lazyderef V2947 V2950) (if (cons? V2541) (let V2542 (shen.lazyderef (hd V2541) V2950) (if (cons? V2542) (let Pattern (hd V2542) (let Patterns (tl V2542) (let V2543 (shen.lazyderef (tl V2541) V2950) (if (cons? V2543) (let Action (hd V2543) (let V2544 (shen.lazyderef (tl V2543) V2950) (if (= () V2544) (let V2545 (shen.lazyderef V2948 V2950) (if (cons? V2545) (let A (hd V2545) (let V2546 (shen.lazyderef (tl V2545) V2950) (if (cons? V2546) (let V2547 (shen.lazyderef (hd V2546) V2950) (if (= --> V2547) (let V2548 (shen.lazyderef (tl V2546) V2950) (if (cons? V2548) (let B (hd V2548) (let V2549 (shen.lazyderef (tl V2548) V2950) (if (= () V2549) (do (shen.incinfs) (shen.t*-pattern Pattern A V2950 (freeze (cut Throwcontrol V2950 (freeze (shen.t*-rule (cons Patterns (cons Action ())) B (cons (cons Pattern (cons : (cons A ()))) V2949) V2950 V2951)))))) false))) false)) false)) false))) false)) false))) false)))) false)) false)) Case)))))
124
+ (defun shen.t*-rule (V3003 V3004 V3005 V3006 V3007) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2588 (shen.lazyderef V3003 V3006) (if (cons? V2588) (let V2589 (shen.lazyderef (hd V2588) V3006) (if (= () V2589) (let V2590 (shen.lazyderef (tl V2588) V3006) (if (cons? V2590) (let Action (hd V2590) (let V2591 (shen.lazyderef (tl V2590) V3006) (if (= () V2591) (do (shen.incinfs) (cut Throwcontrol V3006 (freeze (shen.t*-action (shen.curry Action) V3004 V3005 V3006 V3007)))) false))) false)) false)) false)) (if (= Case false) (let V2592 (shen.lazyderef V3003 V3006) (if (cons? V2592) (let V2593 (shen.lazyderef (hd V2592) V3006) (if (cons? V2593) (let Pattern (hd V2593) (let Patterns (tl V2593) (let V2594 (shen.lazyderef (tl V2592) V3006) (if (cons? V2594) (let Action (hd V2594) (let V2595 (shen.lazyderef (tl V2594) V3006) (if (= () V2595) (let V2596 (shen.lazyderef V3004 V3006) (if (cons? V2596) (let A (hd V2596) (let V2597 (shen.lazyderef (tl V2596) V3006) (if (cons? V2597) (let V2598 (shen.lazyderef (hd V2597) V3006) (if (= --> V2598) (let V2599 (shen.lazyderef (tl V2597) V3006) (if (cons? V2599) (let B (hd V2599) (let V2600 (shen.lazyderef (tl V2599) V3006) (if (= () V2600) (do (shen.incinfs) (shen.t*-pattern Pattern A V3006 (freeze (cut Throwcontrol V3006 (freeze (shen.t*-rule (cons Patterns (cons Action ())) B (cons (cons Pattern (cons : (cons A ()))) V3005) V3006 V3007)))))) false))) false)) false)) false))) false)) false))) false)))) false)) false)) Case)))))
125
125
 
126
- (defun shen.t*-action (V2952 V2953 V2954 V2955 V2956) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2514 (shen.lazyderef V2952 V2955) (if (cons? V2514) (let V2515 (shen.lazyderef (hd V2514) V2955) (if (= where V2515) (let V2516 (shen.lazyderef (tl V2514) V2955) (if (cons? V2516) (let P (hd V2516) (let V2517 (shen.lazyderef (tl V2516) V2955) (if (cons? V2517) (let Action (hd V2517) (let V2518 (shen.lazyderef (tl V2517) V2955) (if (= () V2518) (do (shen.incinfs) (cut Throwcontrol V2955 (freeze (shen.t* (cons P (cons : (cons boolean ()))) V2954 V2955 (freeze (cut Throwcontrol V2955 (freeze (shen.t*-action Action V2953 (cons (cons P (cons : (cons verified ()))) V2954) V2955 V2956)))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2519 (shen.lazyderef V2952 V2955) (if (cons? V2519) (let V2520 (shen.lazyderef (hd V2519) V2955) (if (= shen.choicepoint! V2520) (let V2521 (shen.lazyderef (tl V2519) V2955) (if (cons? V2521) (let V2522 (shen.lazyderef (hd V2521) V2955) (if (cons? V2522) (let V2523 (shen.lazyderef (hd V2522) V2955) (if (cons? V2523) (let V2524 (shen.lazyderef (hd V2523) V2955) (if (= fail-if V2524) (let V2525 (shen.lazyderef (tl V2523) V2955) (if (cons? V2525) (let F (hd V2525) (let V2526 (shen.lazyderef (tl V2525) V2955) (if (= () V2526) (let V2527 (shen.lazyderef (tl V2522) V2955) (if (cons? V2527) (let Action (hd V2527) (let V2528 (shen.lazyderef (tl V2527) V2955) (if (= () V2528) (let V2529 (shen.lazyderef (tl V2521) V2955) (if (= () V2529) (do (shen.incinfs) (cut Throwcontrol V2955 (freeze (shen.t*-action (cons where (cons (cons not (cons (cons F (cons Action ())) ())) (cons Action ()))) V2953 V2954 V2955 V2956)))) false)) false))) false)) false))) false)) false)) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2530 (shen.lazyderef V2952 V2955) (if (cons? V2530) (let V2531 (shen.lazyderef (hd V2530) V2955) (if (= shen.choicepoint! V2531) (let V2532 (shen.lazyderef (tl V2530) V2955) (if (cons? V2532) (let Action (hd V2532) (let V2533 (shen.lazyderef (tl V2532) V2955) (if (= () V2533) (do (shen.incinfs) (cut Throwcontrol V2955 (freeze (shen.t*-action (cons where (cons (cons not (cons (cons (cons = (cons Action ())) (cons (cons fail ()) ())) ())) (cons Action ()))) V2953 V2954 V2955 V2956)))) false))) false)) false)) false)) (if (= Case false) (do (shen.incinfs) (shen.t* (cons V2952 (cons : (cons V2953 ()))) V2954 V2955 V2956)) Case)) Case)) Case)))))
126
+ (defun shen.t*-action (V3008 V3009 V3010 V3011 V3012) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2565 (shen.lazyderef V3008 V3011) (if (cons? V2565) (let V2566 (shen.lazyderef (hd V2565) V3011) (if (= where V2566) (let V2567 (shen.lazyderef (tl V2565) V3011) (if (cons? V2567) (let P (hd V2567) (let V2568 (shen.lazyderef (tl V2567) V3011) (if (cons? V2568) (let Action (hd V2568) (let V2569 (shen.lazyderef (tl V2568) V3011) (if (= () V2569) (do (shen.incinfs) (cut Throwcontrol V3011 (freeze (shen.t* (cons P (cons : (cons boolean ()))) V3010 V3011 (freeze (cut Throwcontrol V3011 (freeze (shen.t*-action Action V3009 (cons (cons P (cons : (cons verified ()))) V3010) V3011 V3012)))))))) false))) false))) false)) false)) false)) (if (= Case false) (let Case (let V2570 (shen.lazyderef V3008 V3011) (if (cons? V2570) (let V2571 (shen.lazyderef (hd V2570) V3011) (if (= shen.choicepoint! V2571) (let V2572 (shen.lazyderef (tl V2570) V3011) (if (cons? V2572) (let V2573 (shen.lazyderef (hd V2572) V3011) (if (cons? V2573) (let V2574 (shen.lazyderef (hd V2573) V3011) (if (cons? V2574) (let V2575 (shen.lazyderef (hd V2574) V3011) (if (= fail-if V2575) (let V2576 (shen.lazyderef (tl V2574) V3011) (if (cons? V2576) (let F (hd V2576) (let V2577 (shen.lazyderef (tl V2576) V3011) (if (= () V2577) (let V2578 (shen.lazyderef (tl V2573) V3011) (if (cons? V2578) (let Action (hd V2578) (let V2579 (shen.lazyderef (tl V2578) V3011) (if (= () V2579) (let V2580 (shen.lazyderef (tl V2572) V3011) (if (= () V2580) (do (shen.incinfs) (cut Throwcontrol V3011 (freeze (shen.t*-action (cons where (cons (cons not (cons (cons F (cons Action ())) ())) (cons Action ()))) V3009 V3010 V3011 V3012)))) false)) false))) false)) false))) false)) false)) false)) false)) false)) false)) false)) (if (= Case false) (let Case (let V2581 (shen.lazyderef V3008 V3011) (if (cons? V2581) (let V2582 (shen.lazyderef (hd V2581) V3011) (if (= shen.choicepoint! V2582) (let V2583 (shen.lazyderef (tl V2581) V3011) (if (cons? V2583) (let Action (hd V2583) (let V2584 (shen.lazyderef (tl V2583) V3011) (if (= () V2584) (do (shen.incinfs) (cut Throwcontrol V3011 (freeze (shen.t*-action (cons where (cons (cons not (cons (cons (cons = (cons Action ())) (cons (cons fail ()) ())) ())) (cons Action ()))) V3009 V3010 V3011 V3012)))) false))) false)) false)) false)) (if (= Case false) (do (shen.incinfs) (shen.t* (cons V3008 (cons : (cons V3009 ()))) V3010 V3011 V3012)) Case)) Case)) Case)))))
127
127
 
128
- (defun shen.t*-pattern (V2957 V2958 V2959 V2960) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Hyp (shen.newpv V2959) (do (shen.incinfs) (shen.tms->hyp (shen.ues V2957) Hyp V2959 (freeze (cut Throwcontrol V2959 (freeze (shen.t* (cons V2957 (cons : (cons V2958 ()))) Hyp V2959 V2960))))))))))
128
+ (defun shen.t*-pattern (V3013 V3014 V3015 V3016) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Hyp (shen.newpv V3015) (do (shen.incinfs) (shen.tms->hyp (shen.ues V3013) Hyp V3015 (freeze (cut Throwcontrol V3015 (freeze (shen.t* (cons V3013 (cons : (cons V3014 ()))) Hyp V3015 V3016))))))))))
129
129
 
130
- (defun shen.tms->hyp (V2961 V2962 V2963 V2964) (let Case (let V2498 (shen.lazyderef V2961 V2963) (if (= () V2498) (let V2499 (shen.lazyderef V2962 V2963) (if (= () V2499) (do (shen.incinfs) (thaw V2964)) (if (shen.pvar? V2499) (do (shen.bindv V2499 () V2963) (let Result (do (shen.incinfs) (thaw V2964)) (do (shen.unbindv V2499 V2963) Result))) false))) false)) (if (= Case false) (let V2500 (shen.lazyderef V2961 V2963) (if (cons? V2500) (let Tm2495 (hd V2500) (let Tms (tl V2500) (let V2501 (shen.lazyderef V2962 V2963) (if (cons? V2501) (let V2502 (shen.lazyderef (hd V2501) V2963) (if (cons? V2502) (let Tm (hd V2502) (let V2503 (shen.lazyderef (tl V2502) V2963) (if (cons? V2503) (let V2504 (shen.lazyderef (hd V2503) V2963) (if (= : V2504) (let V2505 (shen.lazyderef (tl V2503) V2963) (if (cons? V2505) (let A (hd V2505) (let V2506 (shen.lazyderef (tl V2505) V2963) (if (= () V2506) (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (if (shen.pvar? V2506) (do (shen.bindv V2506 () V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2506 V2963) Result))) false)))) (if (shen.pvar? V2505) (let A (shen.newpv V2963) (do (shen.bindv V2505 (cons A ()) V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2505 V2963) Result)))) false))) (if (shen.pvar? V2504) (do (shen.bindv V2504 : V2963) (let Result (let V2507 (shen.lazyderef (tl V2503) V2963) (if (cons? V2507) (let A (hd V2507) (let V2508 (shen.lazyderef (tl V2507) V2963) (if (= () V2508) (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (if (shen.pvar? V2508) (do (shen.bindv V2508 () V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2508 V2963) Result))) false)))) (if (shen.pvar? V2507) (let A (shen.newpv V2963) (do (shen.bindv V2507 (cons A ()) V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2507 V2963) Result)))) false))) (do (shen.unbindv V2504 V2963) Result))) false))) (if (shen.pvar? V2503) (let A (shen.newpv V2963) (do (shen.bindv V2503 (cons : (cons A ())) V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2503 V2963) Result)))) false)))) (if (shen.pvar? V2502) (let Tm (shen.newpv V2963) (let A (shen.newpv V2963) (do (shen.bindv V2502 (cons Tm (cons : (cons A ()))) V2963) (let Result (let Hyp (tl V2501) (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964))))) (do (shen.unbindv V2502 V2963) Result))))) false))) (if (shen.pvar? V2501) (let Tm (shen.newpv V2963) (let A (shen.newpv V2963) (let Hyp (shen.newpv V2963) (do (shen.bindv V2501 (cons (cons Tm (cons : (cons A ()))) Hyp) V2963) (let Result (do (shen.incinfs) (unify! Tm Tm2495 V2963 (freeze (shen.tms->hyp Tms Hyp V2963 V2964)))) (do (shen.unbindv V2501 V2963) Result)))))) false))))) false)) Case)))
130
+ (defun shen.tms->hyp (V3017 V3018 V3019 V3020) (let Case (let V2549 (shen.lazyderef V3017 V3019) (if (= () V2549) (let V2550 (shen.lazyderef V3018 V3019) (if (= () V2550) (do (shen.incinfs) (thaw V3020)) (if (shen.pvar? V2550) (do (shen.bindv V2550 () V3019) (let Result (do (shen.incinfs) (thaw V3020)) (do (shen.unbindv V2550 V3019) Result))) false))) false)) (if (= Case false) (let V2551 (shen.lazyderef V3017 V3019) (if (cons? V2551) (let Tm2546 (hd V2551) (let Tms (tl V2551) (let V2552 (shen.lazyderef V3018 V3019) (if (cons? V2552) (let V2553 (shen.lazyderef (hd V2552) V3019) (if (cons? V2553) (let Tm (hd V2553) (let V2554 (shen.lazyderef (tl V2553) V3019) (if (cons? V2554) (let V2555 (shen.lazyderef (hd V2554) V3019) (if (= : V2555) (let V2556 (shen.lazyderef (tl V2554) V3019) (if (cons? V2556) (let A (hd V2556) (let V2557 (shen.lazyderef (tl V2556) V3019) (if (= () V2557) (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (if (shen.pvar? V2557) (do (shen.bindv V2557 () V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2557 V3019) Result))) false)))) (if (shen.pvar? V2556) (let A (shen.newpv V3019) (do (shen.bindv V2556 (cons A ()) V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2556 V3019) Result)))) false))) (if (shen.pvar? V2555) (do (shen.bindv V2555 : V3019) (let Result (let V2558 (shen.lazyderef (tl V2554) V3019) (if (cons? V2558) (let A (hd V2558) (let V2559 (shen.lazyderef (tl V2558) V3019) (if (= () V2559) (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (if (shen.pvar? V2559) (do (shen.bindv V2559 () V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2559 V3019) Result))) false)))) (if (shen.pvar? V2558) (let A (shen.newpv V3019) (do (shen.bindv V2558 (cons A ()) V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2558 V3019) Result)))) false))) (do (shen.unbindv V2555 V3019) Result))) false))) (if (shen.pvar? V2554) (let A (shen.newpv V3019) (do (shen.bindv V2554 (cons : (cons A ())) V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2554 V3019) Result)))) false)))) (if (shen.pvar? V2553) (let Tm (shen.newpv V3019) (let A (shen.newpv V3019) (do (shen.bindv V2553 (cons Tm (cons : (cons A ()))) V3019) (let Result (let Hyp (tl V2552) (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020))))) (do (shen.unbindv V2553 V3019) Result))))) false))) (if (shen.pvar? V2552) (let Tm (shen.newpv V3019) (let A (shen.newpv V3019) (let Hyp (shen.newpv V3019) (do (shen.bindv V2552 (cons (cons Tm (cons : (cons A ()))) Hyp) V3019) (let Result (do (shen.incinfs) (unify! Tm Tm2546 V3019 (freeze (shen.tms->hyp Tms Hyp V3019 V3020)))) (do (shen.unbindv V2552 V3019) Result)))))) false))))) false)) Case)))
131
131
 
132
- (defun findall (V2965 V2966 V2967 V2968 V2969) (let B (shen.newpv V2968) (let A (shen.newpv V2968) (do (shen.incinfs) (bind A (gensym shen.a) V2968 (freeze (bind B (set (shen.lazyderef A V2968) ()) V2968 (freeze (shen.findallhelp V2965 V2966 V2967 A V2968 V2969)))))))))
132
+ (defun findall (V3021 V3022 V3023 V3024 V3025) (let B (shen.newpv V3024) (let A (shen.newpv V3024) (do (shen.incinfs) (bind A (gensym shen.a) V3024 (freeze (bind B (set (shen.lazyderef A V3024) ()) V3024 (freeze (shen.findallhelp V3021 V3022 V3023 A V3024 V3025)))))))))
133
133
 
134
- (defun shen.findallhelp (V2970 V2971 V2972 V2973 V2974 V2975) (let Case (do (shen.incinfs) (call V2971 V2974 (freeze (shen.remember V2973 V2970 V2974 (freeze (fwhen false V2974 V2975)))))) (if (= Case false) (do (shen.incinfs) (bind V2972 (value (shen.lazyderef V2973 V2974)) V2974 V2975)) Case)))
134
+ (defun shen.findallhelp (V3026 V3027 V3028 V3029 V3030 V3031) (let Case (do (shen.incinfs) (call V3027 V3030 (freeze (shen.remember V3029 V3026 V3030 (freeze (fwhen false V3030 V3031)))))) (if (= Case false) (do (shen.incinfs) (bind V3028 (value (shen.lazyderef V3029 V3030)) V3030 V3031)) Case)))
135
135
 
136
- (defun shen.remember (V2976 V2977 V2978 V2979) (let B (shen.newpv V2978) (do (shen.incinfs) (bind B (set (shen.deref V2976 V2978) (cons (shen.deref V2977 V2978) (value (shen.deref V2976 V2978)))) V2978 V2979))))
136
+ (defun shen.remember (V3032 V3033 V3034 V3035) (let B (shen.newpv V3034) (do (shen.incinfs) (bind B (set (shen.deref V3032 V3034) (cons (shen.deref V3033 V3034) (value (shen.deref V3032 V3034)))) V3034 V3035))))
137
137
 
138
- (defun shen.t*-defcc (V2980 V2981 V2982 V2983 V2984) (let V2471 (shen.lazyderef V2980 V2983) (if (cons? V2471) (let V2472 (shen.lazyderef (hd V2471) V2983) (if (= defcc V2472) (let V2473 (shen.lazyderef (tl V2471) V2983) (if (cons? V2473) (let F (hd V2473) (let V2474 (shen.lazyderef (tl V2473) V2983) (if (cons? V2474) (let V2475 (shen.lazyderef (hd V2474) V2983) (if (= { V2475) (let V2476 (shen.lazyderef (tl V2474) V2983) (if (cons? V2476) (let V2477 (shen.lazyderef (hd V2476) V2983) (if (cons? V2477) (let V2478 (shen.lazyderef (hd V2477) V2983) (if (= list V2478) (let V2479 (shen.lazyderef (tl V2477) V2983) (if (cons? V2479) (let A (hd V2479) (let V2480 (shen.lazyderef (tl V2479) V2983) (if (= () V2480) (let V2481 (shen.lazyderef (tl V2476) V2983) (if (cons? V2481) (let V2482 (shen.lazyderef (hd V2481) V2983) (if (= ==> V2482) (let V2483 (shen.lazyderef (tl V2481) V2983) (if (cons? V2483) (let B (hd V2483) (let V2484 (shen.lazyderef (tl V2483) V2983) (if (cons? V2484) (let V2485 (shen.lazyderef (hd V2484) V2983) (if (= } V2485) (let Rest (tl V2484) (do (shen.incinfs) (shen.t*-defcc-h (cons defcc (cons F (cons (shen.ue (shen.demodulate (cons (cons list (cons A ())) (cons ==> (cons B ()))))) (shen.ue (shen.split_cc_rules false (shen.plug-wildcards Rest) ()))))) V2981 V2982 V2983 V2984))) false)) false))) false)) false)) false)) false))) false)) false)) false)) false)) false)) false))) false)) false)) false)))
138
+ (defun shen.t*-defcc (V3036 V3037 V3038 V3039 V3040) (let V2522 (shen.lazyderef V3036 V3039) (if (cons? V2522) (let V2523 (shen.lazyderef (hd V2522) V3039) (if (= defcc V2523) (let V2524 (shen.lazyderef (tl V2522) V3039) (if (cons? V2524) (let F (hd V2524) (let V2525 (shen.lazyderef (tl V2524) V3039) (if (cons? V2525) (let V2526 (shen.lazyderef (hd V2525) V3039) (if (= { V2526) (let V2527 (shen.lazyderef (tl V2525) V3039) (if (cons? V2527) (let V2528 (shen.lazyderef (hd V2527) V3039) (if (cons? V2528) (let V2529 (shen.lazyderef (hd V2528) V3039) (if (= list V2529) (let V2530 (shen.lazyderef (tl V2528) V3039) (if (cons? V2530) (let A (hd V2530) (let V2531 (shen.lazyderef (tl V2530) V3039) (if (= () V2531) (let V2532 (shen.lazyderef (tl V2527) V3039) (if (cons? V2532) (let V2533 (shen.lazyderef (hd V2532) V3039) (if (= ==> V2533) (let V2534 (shen.lazyderef (tl V2532) V3039) (if (cons? V2534) (let B (hd V2534) (let V2535 (shen.lazyderef (tl V2534) V3039) (if (cons? V2535) (let V2536 (shen.lazyderef (hd V2535) V3039) (if (= } V2536) (let Rest (tl V2535) (do (shen.incinfs) (shen.t*-defcc-h (cons defcc (cons F (cons (shen.ue (shen.demodulate (cons (cons list (cons A ())) (cons ==> (cons B ()))))) (shen.ue (shen.split_cc_rules false (shen.plug-wildcards Rest) ()))))) V3037 V3038 V3039 V3040))) false)) false))) false)) false)) false)) false))) false)) false)) false)) false)) false)) false))) false)) false)) false)))
139
139
 
140
- (defun shen.plug-wildcards (V2985) (cond ((cons? V2985) (map shen.plug-wildcards V2985)) ((= V2985 _) (gensym (intern "X"))) (true V2985)))
140
+ (defun shen.plug-wildcards (V3041) (cond ((cons? V3041) (map (lambda X2881 (shen.plug-wildcards X2881)) V3041)) ((= V3041 _) (gensym (intern "X"))) (true V3041)))
141
141
 
142
- (defun shen.t*-defcc-h (V2986 V2987 V2988 V2989 V2990) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let V2455 (shen.lazyderef V2986 V2989) (if (cons? V2455) (let V2456 (shen.lazyderef (hd V2455) V2989) (if (= defcc V2456) (let V2457 (shen.lazyderef (tl V2455) V2989) (if (cons? V2457) (let F (hd V2457) (let V2458 (shen.lazyderef (tl V2457) V2989) (if (cons? V2458) (let V2459 (shen.lazyderef (hd V2458) V2989) (if (cons? V2459) (let V2460 (shen.lazyderef (hd V2459) V2989) (if (cons? V2460) (let V2461 (shen.lazyderef (hd V2460) V2989) (if (= list V2461) (let V2462 (shen.lazyderef (tl V2460) V2989) (if (cons? V2462) (let A (hd V2462) (let V2463 (shen.lazyderef (tl V2462) V2989) (if (= () V2463) (let V2464 (shen.lazyderef (tl V2459) V2989) (if (cons? V2464) (let V2465 (shen.lazyderef (hd V2464) V2989) (if (= ==> V2465) (let V2466 (shen.lazyderef (tl V2464) V2989) (if (cons? V2466) (let B (hd V2466) (let V2467 (shen.lazyderef (tl V2466) V2989) (if (= () V2467) (let Rules (tl V2458) (let Declare (shen.newpv V2989) (do (shen.incinfs) (cut Throwcontrol V2989 (freeze (shen.tc-rules F Rules (cons list (cons A ())) B (cons (cons F (cons : (cons (cons (cons list (cons A ())) (cons ==> (cons B ()))) ()))) V2988) 1 V2989 (freeze (unify V2987 (cons (cons list (cons A ())) (cons ==> (cons B ()))) V2989 (freeze (bind Declare (declare (shen.lazyderef F V2989) (cons (cons list (cons (shen.lazyderef A V2989) ())) (cons ==> (cons (shen.lazyderef B V2989) ())))) V2989 V2990)))))))))) false))) false)) false)) false)) false))) false)) false)) false)) false)) false))) false)) false)) false)))))
142
+ (defun shen.t*-defcc-h (V3042 V3043 V3044 V3045 V3046) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let V2506 (shen.lazyderef V3042 V3045) (if (cons? V2506) (let V2507 (shen.lazyderef (hd V2506) V3045) (if (= defcc V2507) (let V2508 (shen.lazyderef (tl V2506) V3045) (if (cons? V2508) (let F (hd V2508) (let V2509 (shen.lazyderef (tl V2508) V3045) (if (cons? V2509) (let V2510 (shen.lazyderef (hd V2509) V3045) (if (cons? V2510) (let V2511 (shen.lazyderef (hd V2510) V3045) (if (cons? V2511) (let V2512 (shen.lazyderef (hd V2511) V3045) (if (= list V2512) (let V2513 (shen.lazyderef (tl V2511) V3045) (if (cons? V2513) (let A (hd V2513) (let V2514 (shen.lazyderef (tl V2513) V3045) (if (= () V2514) (let V2515 (shen.lazyderef (tl V2510) V3045) (if (cons? V2515) (let V2516 (shen.lazyderef (hd V2515) V3045) (if (= ==> V2516) (let V2517 (shen.lazyderef (tl V2515) V3045) (if (cons? V2517) (let B (hd V2517) (let V2518 (shen.lazyderef (tl V2517) V3045) (if (= () V2518) (let Rules (tl V2509) (let Declare (shen.newpv V3045) (do (shen.incinfs) (cut Throwcontrol V3045 (freeze (shen.tc-rules F Rules (cons list (cons A ())) B (cons (cons F (cons : (cons (cons (cons list (cons A ())) (cons ==> (cons B ()))) ()))) V3044) 1 V3045 (freeze (unify V3043 (cons (cons list (cons A ())) (cons ==> (cons B ()))) V3045 (freeze (bind Declare (declare (shen.lazyderef F V3045) (cons (cons list (cons (shen.lazyderef A V3045) ())) (cons ==> (cons (shen.lazyderef B V3045) ())))) V3045 V3046)))))))))) false))) false)) false)) false)) false))) false)) false)) false)) false)) false))) false)) false)) false)))))
143
143
 
144
- (defun shen.tc-rules (V2991 V2992 V2993 V2994 V2995 V2996 V2997 V2998) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2446 (shen.lazyderef V2992 V2997) (if (= () V2446) (do (shen.incinfs) (thaw V2998)) false)) (if (= Case false) (let V2447 (shen.lazyderef V2992 V2997) (if (cons? V2447) (let Rule (hd V2447) (let Rules (tl V2447) (let V2448 (shen.lazyderef V2993 V2997) (if (cons? V2448) (let V2449 (shen.lazyderef (hd V2448) V2997) (if (= list V2449) (let V2450 (shen.lazyderef (tl V2448) V2997) (if (cons? V2450) (let A (hd V2450) (let V2451 (shen.lazyderef (tl V2450) V2997) (if (= () V2451) (let M (shen.newpv V2997) (do (shen.incinfs) (shen.tc-rule V2991 Rule A V2994 V2995 V2996 V2997 (freeze (bind M (+ (shen.deref V2996 V2997) 1) V2997 (freeze (cut Throwcontrol V2997 (freeze (shen.tc-rules V2991 Rules (cons list (cons A ())) V2994 V2995 M V2997 V2998))))))))) false))) false)) false)) false)))) false)) Case)))))
144
+ (defun shen.tc-rules (V3047 V3048 V3049 V3050 V3051 V3052 V3053 V3054) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2497 (shen.lazyderef V3048 V3053) (if (= () V2497) (do (shen.incinfs) (thaw V3054)) false)) (if (= Case false) (let V2498 (shen.lazyderef V3048 V3053) (if (cons? V2498) (let Rule (hd V2498) (let Rules (tl V2498) (let V2499 (shen.lazyderef V3049 V3053) (if (cons? V2499) (let V2500 (shen.lazyderef (hd V2499) V3053) (if (= list V2500) (let V2501 (shen.lazyderef (tl V2499) V3053) (if (cons? V2501) (let A (hd V2501) (let V2502 (shen.lazyderef (tl V2501) V3053) (if (= () V2502) (let M (shen.newpv V3053) (do (shen.incinfs) (shen.tc-rule V3047 Rule A V3050 V3051 V3052 V3053 (freeze (bind M (+ (shen.deref V3052 V3053) 1) V3053 (freeze (cut Throwcontrol V3053 (freeze (shen.tc-rules V3047 Rules (cons list (cons A ())) V3050 V3051 M V3053 V3054))))))))) false))) false)) false)) false)))) false)) Case)))))
145
145
 
146
- (defun shen.tc-rule (V2999 V3000 V3001 V3002 V3003 V3004 V3005 V3006) (let Case (do (shen.incinfs) (shen.check-defcc-rule V3000 V3001 V3002 V3003 V3005 V3006)) (if (= Case false) (let Err (shen.newpv V3005) (do (shen.incinfs) (bind Err (simple-error (cn "type error in rule " (shen.app (shen.lazyderef V3004 V3005) (cn " of " (shen.app (shen.lazyderef V2999 V3005) "" shen.a)) shen.a))) V3005 V3006))) Case)))
146
+ (defun shen.tc-rule (V3055 V3056 V3057 V3058 V3059 V3060 V3061 V3062) (let Case (do (shen.incinfs) (shen.check-defcc-rule V3056 V3057 V3058 V3059 V3061 V3062)) (if (= Case false) (let Err (shen.newpv V3061) (do (shen.incinfs) (bind Err (simple-error (cn "type error in rule " (shen.app (shen.lazyderef V3060 V3061) (cn " of " (shen.app (shen.lazyderef V3055 V3061) "" shen.a)) shen.a))) V3061 V3062))) Case)))
147
147
 
148
- (defun shen.check-defcc-rule (V3007 V3008 V3009 V3010 V3011 V3012) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let V2431 (shen.lazyderef V3007 V3011) (if (cons? V2431) (let Syntax (hd V2431) (let V2432 (shen.lazyderef (tl V2431) V3011) (if (cons? V2432) (let Semantics (hd V2432) (let V2433 (shen.lazyderef (tl V2432) V3011) (if (= () V2433) (let SynHyps (shen.newpv V3011) (do (shen.incinfs) (shen.syntax-hyps Syntax V3010 SynHyps V3008 V3011 (freeze (cut Throwcontrol V3011 (freeze (shen.syntax-check Syntax V3008 SynHyps V3011 (freeze (cut Throwcontrol V3011 (freeze (shen.semantics-check Semantics V3009 SynHyps V3011 V3012))))))))))) false))) false))) false)))))
148
+ (defun shen.check-defcc-rule (V3063 V3064 V3065 V3066 V3067 V3068) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let V2482 (shen.lazyderef V3063 V3067) (if (cons? V2482) (let Syntax (hd V2482) (let V2483 (shen.lazyderef (tl V2482) V3067) (if (cons? V2483) (let Semantics (hd V2483) (let V2484 (shen.lazyderef (tl V2483) V3067) (if (= () V2484) (let SynHyps (shen.newpv V3067) (do (shen.incinfs) (shen.syntax-hyps Syntax V3066 SynHyps V3064 V3067 (freeze (cut Throwcontrol V3067 (freeze (shen.syntax-check Syntax V3064 SynHyps V3067 (freeze (cut Throwcontrol V3067 (freeze (shen.semantics-check Semantics V3065 SynHyps V3067 V3068))))))))))) false))) false))) false)))))
149
149
 
150
- (defun shen.syntax-hyps (V3013 V3014 V3015 V3016 V3017 V3018) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2416 (shen.lazyderef V3013 V3017) (if (= () V2416) (do (shen.incinfs) (unify! V3015 V3014 V3017 V3018)) false)) (if (= Case false) (let Case (let V2417 (shen.lazyderef V3013 V3017) (if (cons? V2417) (let X2410 (hd V2417) (let Y (tl V2417) (let V2418 (shen.lazyderef V3015 V3017) (if (cons? V2418) (let V2419 (shen.lazyderef (hd V2418) V3017) (if (cons? V2419) (let X (hd V2419) (let V2420 (shen.lazyderef (tl V2419) V3017) (if (cons? V2420) (let V2421 (shen.lazyderef (hd V2420) V3017) (if (= : V2421) (let V2422 (shen.lazyderef (tl V2420) V3017) (if (cons? V2422) (let A2411 (hd V2422) (let V2423 (shen.lazyderef (tl V2422) V3017) (if (= () V2423) (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (if (shen.pvar? V2423) (do (shen.bindv V2423 () V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2423 V3017) Result))) false)))) (if (shen.pvar? V2422) (let A2411 (shen.newpv V3017) (do (shen.bindv V2422 (cons A2411 ()) V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2422 V3017) Result)))) false))) (if (shen.pvar? V2421) (do (shen.bindv V2421 : V3017) (let Result (let V2424 (shen.lazyderef (tl V2420) V3017) (if (cons? V2424) (let A2411 (hd V2424) (let V2425 (shen.lazyderef (tl V2424) V3017) (if (= () V2425) (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (if (shen.pvar? V2425) (do (shen.bindv V2425 () V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2425 V3017) Result))) false)))) (if (shen.pvar? V2424) (let A2411 (shen.newpv V3017) (do (shen.bindv V2424 (cons A2411 ()) V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2424 V3017) Result)))) false))) (do (shen.unbindv V2421 V3017) Result))) false))) (if (shen.pvar? V2420) (let A2411 (shen.newpv V3017) (do (shen.bindv V2420 (cons : (cons A2411 ())) V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2420 V3017) Result)))) false)))) (if (shen.pvar? V2419) (let X (shen.newpv V3017) (let A2411 (shen.newpv V3017) (do (shen.bindv V2419 (cons X (cons : (cons A2411 ()))) V3017) (let Result (let SynHyps (tl V2418) (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018))))))))))) (do (shen.unbindv V2419 V3017) Result))))) false))) (if (shen.pvar? V2418) (let X (shen.newpv V3017) (let A2411 (shen.newpv V3017) (let SynHyps (shen.newpv V3017) (do (shen.bindv V2418 (cons (cons X (cons : (cons A2411 ()))) SynHyps) V3017) (let Result (do (shen.incinfs) (unify! V3016 A2411 V3017 (freeze (unify! X X2410 V3017 (freeze (fwhen (shen.ue? (shen.deref X V3017)) V3017 (freeze (cut Throwcontrol V3017 (freeze (shen.syntax-hyps Y V3014 SynHyps V3016 V3017 V3018)))))))))) (do (shen.unbindv V2418 V3017) Result)))))) false))))) false)) (if (= Case false) (let V2426 (shen.lazyderef V3013 V3017) (if (cons? V2426) (let Y (tl V2426) (do (shen.incinfs) (shen.syntax-hyps Y V3014 V3015 V3016 V3017 V3018))) false)) Case)) Case)))))
150
+ (defun shen.syntax-hyps (V3069 V3070 V3071 V3072 V3073 V3074) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2467 (shen.lazyderef V3069 V3073) (if (= () V2467) (do (shen.incinfs) (unify! V3071 V3070 V3073 V3074)) false)) (if (= Case false) (let Case (let V2468 (shen.lazyderef V3069 V3073) (if (cons? V2468) (let X2461 (hd V2468) (let Y (tl V2468) (let V2469 (shen.lazyderef V3071 V3073) (if (cons? V2469) (let V2470 (shen.lazyderef (hd V2469) V3073) (if (cons? V2470) (let X (hd V2470) (let V2471 (shen.lazyderef (tl V2470) V3073) (if (cons? V2471) (let V2472 (shen.lazyderef (hd V2471) V3073) (if (= : V2472) (let V2473 (shen.lazyderef (tl V2471) V3073) (if (cons? V2473) (let A2462 (hd V2473) (let V2474 (shen.lazyderef (tl V2473) V3073) (if (= () V2474) (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (if (shen.pvar? V2474) (do (shen.bindv V2474 () V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2474 V3073) Result))) false)))) (if (shen.pvar? V2473) (let A2462 (shen.newpv V3073) (do (shen.bindv V2473 (cons A2462 ()) V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2473 V3073) Result)))) false))) (if (shen.pvar? V2472) (do (shen.bindv V2472 : V3073) (let Result (let V2475 (shen.lazyderef (tl V2471) V3073) (if (cons? V2475) (let A2462 (hd V2475) (let V2476 (shen.lazyderef (tl V2475) V3073) (if (= () V2476) (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (if (shen.pvar? V2476) (do (shen.bindv V2476 () V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2476 V3073) Result))) false)))) (if (shen.pvar? V2475) (let A2462 (shen.newpv V3073) (do (shen.bindv V2475 (cons A2462 ()) V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2475 V3073) Result)))) false))) (do (shen.unbindv V2472 V3073) Result))) false))) (if (shen.pvar? V2471) (let A2462 (shen.newpv V3073) (do (shen.bindv V2471 (cons : (cons A2462 ())) V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2471 V3073) Result)))) false)))) (if (shen.pvar? V2470) (let X (shen.newpv V3073) (let A2462 (shen.newpv V3073) (do (shen.bindv V2470 (cons X (cons : (cons A2462 ()))) V3073) (let Result (let SynHyps (tl V2469) (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074))))))))))) (do (shen.unbindv V2470 V3073) Result))))) false))) (if (shen.pvar? V2469) (let X (shen.newpv V3073) (let A2462 (shen.newpv V3073) (let SynHyps (shen.newpv V3073) (do (shen.bindv V2469 (cons (cons X (cons : (cons A2462 ()))) SynHyps) V3073) (let Result (do (shen.incinfs) (unify! V3072 A2462 V3073 (freeze (unify! X X2461 V3073 (freeze (fwhen (shen.ue? (shen.deref X V3073)) V3073 (freeze (cut Throwcontrol V3073 (freeze (shen.syntax-hyps Y V3070 SynHyps V3072 V3073 V3074)))))))))) (do (shen.unbindv V2469 V3073) Result)))))) false))))) false)) (if (= Case false) (let V2477 (shen.lazyderef V3069 V3073) (if (cons? V2477) (let Y (tl V2477) (do (shen.incinfs) (shen.syntax-hyps Y V3070 V3071 V3072 V3073 V3074))) false)) Case)) Case)))))
151
151
 
152
- (defun shen.syntax-check (V3019 V3020 V3021 V3022 V3023) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2406 (shen.lazyderef V3019 V3022) (if (= () V2406) (do (shen.incinfs) (thaw V3023)) false)) (if (= Case false) (let Case (let V2407 (shen.lazyderef V3019 V3022) (if (cons? V2407) (let X (hd V2407) (let Syntax (tl V2407) (let C (shen.newpv V3022) (do (shen.incinfs) (fwhen (shen.grammar_symbol? (shen.lazyderef X V3022)) V3022 (freeze (cut Throwcontrol V3022 (freeze (shen.t* (cons X (cons : (cons (cons (cons list (cons V3020 ())) (cons ==> (cons C ()))) ()))) V3021 V3022 (freeze (cut Throwcontrol V3022 (freeze (shen.syntax-check Syntax V3020 V3021 V3022 V3023))))))))))))) false)) (if (= Case false) (let V2408 (shen.lazyderef V3019 V3022) (if (cons? V2408) (let X (hd V2408) (let Syntax (tl V2408) (do (shen.incinfs) (shen.t* (cons X (cons : (cons V3020 ()))) V3021 V3022 (freeze (cut Throwcontrol V3022 (freeze (shen.syntax-check Syntax V3020 V3021 V3022 V3023)))))))) false)) Case)) Case)))))
152
+ (defun shen.syntax-check (V3075 V3076 V3077 V3078 V3079) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2457 (shen.lazyderef V3075 V3078) (if (= () V2457) (do (shen.incinfs) (thaw V3079)) false)) (if (= Case false) (let Case (let V2458 (shen.lazyderef V3075 V3078) (if (cons? V2458) (let X (hd V2458) (let Syntax (tl V2458) (let C (shen.newpv V3078) (do (shen.incinfs) (fwhen (shen.grammar_symbol? (shen.lazyderef X V3078)) V3078 (freeze (cut Throwcontrol V3078 (freeze (shen.t* (cons X (cons : (cons (cons (cons list (cons V3076 ())) (cons ==> (cons C ()))) ()))) V3077 V3078 (freeze (cut Throwcontrol V3078 (freeze (shen.syntax-check Syntax V3076 V3077 V3078 V3079))))))))))))) false)) (if (= Case false) (let V2459 (shen.lazyderef V3075 V3078) (if (cons? V2459) (let X (hd V2459) (let Syntax (tl V2459) (do (shen.incinfs) (shen.t* (cons X (cons : (cons V3076 ()))) V3077 V3078 (freeze (cut Throwcontrol V3078 (freeze (shen.syntax-check Syntax V3076 V3077 V3078 V3079)))))))) false)) Case)) Case)))))
153
153
 
154
- (defun shen.semantics-check (V3024 V3025 V3026 V3027 V3028) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2398 (shen.lazyderef V3024 V3027) (if (cons? V2398) (let V2399 (shen.lazyderef (hd V2398) V3027) (if (= where V2399) (let V2400 (shen.lazyderef (tl V2398) V3027) (if (cons? V2400) (let P (hd V2400) (let V2401 (shen.lazyderef (tl V2400) V3027) (if (cons? V2401) (let Q (hd V2401) (let V2402 (shen.lazyderef (tl V2401) V3027) (if (= () V2402) (do (shen.incinfs) (cut Throwcontrol V3027 (freeze (shen.t* (cons (shen.curry P) (cons : (cons boolean ()))) V3026 V3027 (freeze (shen.t* (cons (shen.curry Q) (cons : (cons V3025 ()))) V3026 V3027 V3028)))))) false))) false))) false)) false)) false)) (if (= Case false) (let Semantics* (shen.newpv V3027) (do (shen.incinfs) (bind Semantics* (shen.curry (shen.rename-semantics (shen.deref V3024 V3027))) V3027 (freeze (shen.t* (cons Semantics* (cons : (cons V3025 ()))) V3026 V3027 V3028))))) Case)))))
154
+ (defun shen.semantics-check (V3080 V3081 V3082 V3083 V3084) (let Throwcontrol (shen.catchpoint) (shen.cutpoint Throwcontrol (let Case (let V2449 (shen.lazyderef V3080 V3083) (if (cons? V2449) (let V2450 (shen.lazyderef (hd V2449) V3083) (if (= where V2450) (let V2451 (shen.lazyderef (tl V2449) V3083) (if (cons? V2451) (let P (hd V2451) (let V2452 (shen.lazyderef (tl V2451) V3083) (if (cons? V2452) (let Q (hd V2452) (let V2453 (shen.lazyderef (tl V2452) V3083) (if (= () V2453) (do (shen.incinfs) (cut Throwcontrol V3083 (freeze (shen.t* (cons (shen.curry P) (cons : (cons boolean ()))) V3082 V3083 (freeze (shen.t* (cons (shen.curry Q) (cons : (cons V3081 ()))) V3082 V3083 V3084)))))) false))) false))) false)) false)) false)) (if (= Case false) (let Semantics* (shen.newpv V3083) (do (shen.incinfs) (bind Semantics* (shen.curry (shen.rename-semantics (shen.deref V3080 V3083))) V3083 (freeze (shen.t* (cons Semantics* (cons : (cons V3081 ()))) V3082 V3083 V3084))))) Case)))))
155
155
 
156
- (defun shen.rename-semantics (V3029) (cond ((cons? V3029) (cons (shen.rename-semantics (hd V3029)) (shen.rename-semantics (tl V3029)))) ((shen.grammar_symbol? V3029) (cons shen.<-sem (cons V3029 ()))) (true V3029)))
156
+ (defun shen.rename-semantics (V3085) (cond ((cons? V3085) (cons (shen.rename-semantics (hd V3085)) (shen.rename-semantics (tl V3085)))) ((shen.grammar_symbol? V3085) (cons shen.<-sem (cons V3085 ()))) (true V3085)))
157
157
 
158
158
  "(defprolog syntax-check
159
159
  (mode [] -) _ _ <--;