Appendix.s_init_list_v39
|- (s_init_list_v39 = ((LET (\upperbd. (LET_END ((LET (\a_pro. (LET_END ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT0 (BIT1 (BIT1 _0))))) (d_tame (NUMERAL (BIT0 (BIT1 (BIT1 _0)))))) (((cs_adj (NUMERAL (BIT0 (BIT1 (BIT1 _0))))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0))) (((cs_adj (NUMERAL (BIT0 (BIT1 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) (d_tame (NUMERAL (BIT1 (BIT0 (BIT1 _0)))))) (((cs_adj (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0))) (((cs_adj (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) (d_tame (NUMERAL (BIT0 (BIT0 (BIT1 _0)))))) (((cs_adj (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0))) (((cs_adj (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT1 (BIT1 _0)))) (d_tame (NUMERAL (BIT1 (BIT1 _0))))) (((cs_adj (NUMERAL (BIT1 (BIT1 _0)))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0))) (((cs_adj (NUMERAL (BIT1 (BIT1 _0)))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) ((DECIMAL (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT0 (BIT0 (BIT1 _0)))))))))))) (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 (BIT1 (BIT1 _0))))))))))))) (((cs_adj (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) sqrt8)) (((cs_adj (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) ((DECIMAL (NUMERAL (BIT1 (BIT1 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 _0))))))))))) (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 (BIT1 (BIT1 _0))))))))))))) (((cs_adj (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) (real_of_num (NUMERAL (BIT1 (BIT1 _0)))))) (((cs_adj (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) ((DECIMAL (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT0 (BIT0 (BIT1 _0)))))))))))) (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 (BIT1 (BIT1 _0))))))))))))) ((((a_pro (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0))) ((((a_pro (NUMERAL (BIT1 (BIT0 (BIT1 _0))))) sqrt8) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) ((CONS ((((mk_unadorned_v39 (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) ((DECIMAL (NUMERAL (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 _0))))))))))) (NUMERAL (BIT0 (BIT0 (BIT0 (BIT1 (BIT0 (BIT1 (BIT1 (BIT1 (BIT1 (BIT1 _0))))))))))))) ((((a_pro (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) sqrt8)) ((((a_pro (NUMERAL (BIT0 (BIT0 (BIT1 _0))))) sqrt8) ((real_mul (real_of_num (NUMERAL (BIT0 (BIT1 _0))))) h0)) upperbd))) NIL))))))))))) (\k. (\p. (\a1. (\a2. (\i. (\j. (((COND ((i MOD k) = (j MOD k))) (real_of_num (NUMERAL _0))) (((COND (((i MOD k) INSERT ((j MOD k) INSERT EMPTY)) = ((NUMERAL _0) INSERT ((NUMERAL (BIT1 _0)) INSERT EMPTY)))) p) (((COND (((j MOD k) = ((SUC i) MOD k)) \/ (((SUC j) MOD k) = (i MOD k)))) a1) a2))))))))))))) (real_of_num (NUMERAL (BIT0 (BIT1 (BIT1 _0)))))))