/*
**
** The C code is generated by ATS/Anairiats
** The compilation time is: 2020-11-6:  1h:51m
**
*/

/* include some .h files */
#ifndef _ATS_HEADER_NONE
#include "ats_config.h"
#include "ats_basics.h"
#include "ats_types.h"
#include "ats_exception.h"
#include "ats_memory.h"
#endif /* _ATS_HEADER_NONE */

/* include some .cats files */
#ifndef _ATS_PRELUDE_NONE
#include "prelude/CATS/basics.cats"
#include "prelude/CATS/bool.cats"
#include "prelude/CATS/char.cats"
#include "prelude/CATS/byte.cats"
#include "prelude/CATS/float.cats"
#include "prelude/CATS/integer.cats"
#include "prelude/CATS/integer_ptr.cats"
#include "prelude/CATS/integer_fixed.cats"
#include "prelude/CATS/sizetype.cats"
#include "prelude/CATS/pointer.cats"
#include "prelude/CATS/reference.cats"
#include "prelude/CATS/string.cats"
#include "prelude/CATS/lazy.cats"
#include "prelude/CATS/lazy_vt.cats"
#include "prelude/CATS/printf.cats"
#include "prelude/CATS/list.cats"
#include "prelude/CATS/option.cats"
#include "prelude/CATS/array.cats"
#include "prelude/CATS/matrix.cats"
#endif /* _ATS_PRELUDE_NONE */
/* prologues from statically loaded files */
/* external codes at top */
/* type definitions */
typedef struct {
ats_int_type atslab_0 ;
} anairiats_sum_0 ;

/* external typedefs */
/* external dynamic constructor declarations */
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_0) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_pos_1) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_neg_2) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_fn_0) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_fnx_1) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_fun_2) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_prfn_3) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_prfun_4) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_praxi_5) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FK_castfn_6) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VK_val_0) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VK_val_pos_1) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VK_val_neg_2) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VK_prval_3) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKfun_0) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKval_1) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKpraxi_2) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKprfun_3) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKprval_4) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__DCKcastfn_5) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FUNCLOfun_0) ;
ATSextern_val(ats_sum_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__FUNCLOclo_1) ;

/* external dynamic constant declarations */
ATSextern_fun(ats_void_type, atspre_vbox_make_view_ptr) (ats_ptr_type) ;
ATSextern_fun(ats_bool_type, atspre_neg_bool) (ats_bool_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_neq_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_int_type, atspre_asl_int_int1) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_lt_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_bool_type, atspre_gt_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_uint_type, atspre_lnot_uint) (ats_uint_type) ;
ATSextern_fun(ats_uint_type, atspre_land_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_uint_type, atspre_lor_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_void_type, atspre_fprint_string) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_fprintf_exn) (ats_ptr_type, ats_ptr_type, ...) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_fltkind) (ats_int_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__eq_funclo_funclo) (ats_ptr_type, ats_ptr_type) ;

/* external dynamic terminating constant declarations */
#ifdef _ATS_PROOFCHECK
#endif /* _ATS_PROOFCHECK */

/* assuming abstract types */
/* sum constructor declarations */
/* exn constructor declarations */
/* global dynamic (non-functional) constant declarations */
ATSglobal(ats_int_type, _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VIEWT0YPE_knd) ;

/* internal function declarations */

/* partial value template declarations */
/* static temporary variable declarations */
ATSstatic (ats_int_type, statmp62) ;
// ATSstatic_void (statmp63) ;
// ATSstatic_void (statmp64) ;

/* external value variable declarations */

/* function implementations */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 1581(line=49, offs=13) -- 1696(line=54, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_fltkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp0) ;
ATSlocal (ats_int_type, tmp1) ;
ATSlocal (ats_uint_type, tmp2) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_fltkind:
tmp1 = atspre_asl_int_int1 (1, 0) ;
tmp2 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp1)) ;
tmp0 = atspre_gt_uint_uint (tmp2, 0u) ;
return (tmp0) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_fltkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 1745(line=57, offs=13) -- 1797(line=58, offs=45)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_boxkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp3) ;
ATSlocal (ats_bool_type, tmp4) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_boxkind:
tmp4 = _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_fltkind (arg0) ;
if (tmp4) {
tmp3 = ats_false_bool ;
} else {
tmp3 = ats_true_bool ;
} /* end of [if] */
return (tmp3) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_boxkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 1846(line=62, offs=13) -- 1961(line=67, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_linkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp5) ;
ATSlocal (ats_int_type, tmp6) ;
ATSlocal (ats_uint_type, tmp7) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_linkind:
tmp6 = atspre_asl_int_int1 (1, 1) ;
tmp7 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp6)) ;
tmp5 = atspre_gt_uint_uint (tmp7, 0u) ;
return (tmp5) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_linkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2010(line=70, offs=13) -- 2123(line=75, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prfkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp8) ;
ATSlocal (ats_int_type, tmp9) ;
ATSlocal (ats_uint_type, tmp10) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prfkind:
tmp9 = atspre_asl_int_int1 (1, 2) ;
tmp10 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp9)) ;
tmp8 = atspre_gt_uint_uint (tmp10, 0u) ;
return (tmp8) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prfkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2173(line=78, offs=14) -- 2286(line=83, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prgmkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp11) ;
ATSlocal (ats_int_type, tmp12) ;
ATSlocal (ats_uint_type, tmp13) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prgmkind:
tmp12 = atspre_asl_int_int1 (1, 2) ;
tmp13 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp12)) ;
tmp11 = atspre_eq_uint_uint (tmp13, 0u) ;
return (tmp11) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_prgmkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2337(line=86, offs=14) -- 2535(line=97, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_polkind (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_int_type, tmp14) ;
ATSlocal (ats_int_type, tmp15) ;
ATSlocal (ats_uint_type, tmp16) ;
ATSlocal (ats_bool_type, tmp17) ;
ATSlocal (ats_bool_type, tmp18) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_polkind:
tmp15 = atspre_asl_int_int1 (3, 3) ;
tmp16 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp15)) ;
tmp17 = atspre_eq_uint_uint (tmp16, 0u) ;
if (tmp17) {
tmp14 = 0 ;
} else {
tmp18 = atspre_lt_uint_uint (tmp16, ats_castfn_mac(ats_uint_type, tmp15)) ;
if (tmp18) {
tmp14 = 1 ;
} else {
tmp14 = -1 ;
} /* end of [if] */
} /* end of [if] */
return (tmp14) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__test_polkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2610(line=102, offs=18) -- 2723(line=107, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_linearize (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_int_type, tmp19) ;
ATSlocal (ats_int_type, tmp20) ;
ATSlocal (ats_uint_type, tmp21) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_linearize:
tmp20 = atspre_asl_int_int1 (1, 1) ;
tmp21 = atspre_lor_uint_uint (ats_castfn_mac(ats_uint_type, arg0), ats_castfn_mac(ats_uint_type, tmp20)) ;
tmp19 = ats_castfn_mac(ats_int_type, tmp21) ;
return (tmp19) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_linearize] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2783(line=110, offs=19) -- 2898(line=115, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_neutralize (ats_int_type arg0) {
/* local vardec */
ATSlocal (ats_int_type, tmp22) ;
ATSlocal (ats_int_type, tmp23) ;
ATSlocal (ats_uint_type, tmp24) ;
ATSlocal (ats_uint_type, tmp25) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_neutralize:
tmp23 = atspre_asl_int_int1 (3, 3) ;
tmp25 = atspre_lnot_uint (ats_castfn_mac(ats_uint_type, tmp23)) ;
tmp24 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), tmp25) ;
tmp22 = ats_castfn_mac(ats_int_type, tmp24) ;
return (tmp22) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__impkind_neutralize] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 2981(line=120, offs=20) -- 3201(line=133, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__lte_impkind_impkind (ats_int_type arg0, ats_int_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp26) ;
ATSlocal (ats_int_type, tmp27) ;
ATSlocal (ats_uint_type, tmp28) ;
ATSlocal (ats_uint_type, tmp29) ;
ATSlocal (ats_uint_type, tmp30) ;
ATSlocal (ats_uint_type, tmp31) ;
ATSlocal (ats_uint_type, tmp32) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__lte_impkind_impkind:
tmp27 = atspre_asl_int_int1 (3, 3) ;
tmp28 = atspre_lnot_uint (ats_castfn_mac(ats_uint_type, tmp27)) ;
tmp29 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg0), tmp28) ;
tmp30 = atspre_land_uint_uint (ats_castfn_mac(ats_uint_type, arg1), tmp28) ;
tmp32 = atspre_lnot_uint (tmp30) ;
tmp31 = atspre_land_uint_uint (tmp29, tmp32) ;
tmp26 = atspre_eq_uint_uint (tmp31, 0u) ;
return (tmp26) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__lte_impkind_impkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 3283(line=139, offs=3) -- 3460(line=143, offs=51)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_caskind (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp33) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_caskind:
do {
/* branch: __ats_lab_0 */
__ats_lab_0_0:
if (((ats_sum_ptr_type)arg1)->tag != 0) { goto __ats_lab_1_0 ; }
__ats_lab_0_1:
/* tmp33 = */ atspre_fprint_string (arg0, ATSstrcst("case")) ;
break ;

/* branch: __ats_lab_1 */
__ats_lab_1_0:
if (((ats_sum_ptr_type)arg1)->tag != 1) { goto __ats_lab_2_0 ; }
__ats_lab_1_1:
/* tmp33 = */ atspre_fprint_string (arg0, ATSstrcst("case+")) ;
break ;

/* branch: __ats_lab_2 */
__ats_lab_2_0:
// if (((ats_sum_ptr_type)arg1)->tag != 2) { ats_deadcode_failure_handle () ; }
__ats_lab_2_1:
/* tmp33 = */ atspre_fprint_string (arg0, ATSstrcst("case-")) ;
break ;
} while (0) ;
return /* (tmp33) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_caskind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 3541(line=150, offs=3) -- 3668(line=159, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_proof (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp34) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_proof:
do {
/* branch: __ats_lab_3 */
__ats_lab_3_0:
if (((ats_sum_ptr_type)arg0)->tag != 3) { goto __ats_lab_4_0 ; }
__ats_lab_3_1:
tmp34 = ats_true_bool ;
break ;

/* branch: __ats_lab_4 */
__ats_lab_4_0:
if (((ats_sum_ptr_type)arg0)->tag != 4) { goto __ats_lab_5_0 ; }
__ats_lab_4_1:
tmp34 = ats_true_bool ;
break ;

/* branch: __ats_lab_5 */
__ats_lab_5_0:
if (((ats_sum_ptr_type)arg0)->tag != 5) { goto __ats_lab_6_0 ; }
__ats_lab_5_1:
tmp34 = ats_true_bool ;
break ;

/* branch: __ats_lab_6 */
__ats_lab_6_0:
__ats_lab_6_1:
tmp34 = ats_false_bool ;
break ;
} while (0) ;
return (tmp34) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_proof] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 3732(line=163, offs=3) -- 3936(line=178, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_recursive (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp35) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_recursive:
do {
/* branch: __ats_lab_7 */
__ats_lab_7_0:
if (((ats_sum_ptr_type)arg0)->tag != 2) { goto __ats_lab_8_0 ; }
__ats_lab_7_1:
tmp35 = ats_true_bool ;
break ;

/* branch: __ats_lab_8 */
__ats_lab_8_0:
if (((ats_sum_ptr_type)arg0)->tag != 1) { goto __ats_lab_9_0 ; }
__ats_lab_8_1:
tmp35 = ats_true_bool ;
break ;

/* branch: __ats_lab_9 */
__ats_lab_9_0:
if (((ats_sum_ptr_type)arg0)->tag != 4) { goto __ats_lab_10_0 ; }
__ats_lab_9_1:
tmp35 = ats_true_bool ;
break ;

/* branch: __ats_lab_10 */
__ats_lab_10_0:
if (((ats_sum_ptr_type)arg0)->tag != 5) { goto __ats_lab_11_0 ; }
__ats_lab_10_1:
tmp35 = ats_true_bool ;
break ;

/* branch: __ats_lab_11 */
__ats_lab_11_0:
if (((ats_sum_ptr_type)arg0)->tag != 6) { goto __ats_lab_12_0 ; }
__ats_lab_11_1:
tmp35 = ats_true_bool ;
break ;

/* branch: __ats_lab_12 */
__ats_lab_12_0:
__ats_lab_12_1:
tmp35 = ats_false_bool ;
break ;
} while (0) ;
return (tmp35) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_recursive] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 4025(line=184, offs=3) -- 4079(line=186, offs=43)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_mutailrec (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp36) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_mutailrec:
do {
/* branch: __ats_lab_13 */
__ats_lab_13_0:
if (((ats_sum_ptr_type)arg0)->tag != 1) { goto __ats_lab_14_0 ; }
__ats_lab_13_1:
tmp36 = ats_true_bool ;
break ;

/* branch: __ats_lab_14 */
__ats_lab_14_0:
__ats_lab_14_1:
tmp36 = ats_false_bool ;
break ;
} while (0) ;
return (tmp36) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funkind_is_mutailrec] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 4170(line=194, offs=3) -- 4544(line=210, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funkind (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp37) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funkind:
do {
/* branch: __ats_lab_15 */
__ats_lab_15_0:
if (((ats_sum_ptr_type)arg1)->tag != 0) { goto __ats_lab_16_0 ; }
__ats_lab_15_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("fn")) ;
break ;

/* branch: __ats_lab_16 */
__ats_lab_16_0:
if (((ats_sum_ptr_type)arg1)->tag != 1) { goto __ats_lab_17_0 ; }
__ats_lab_16_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("fnx")) ;
break ;

/* branch: __ats_lab_17 */
__ats_lab_17_0:
if (((ats_sum_ptr_type)arg1)->tag != 2) { goto __ats_lab_18_0 ; }
__ats_lab_17_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("fun")) ;
break ;

/* branch: __ats_lab_18 */
__ats_lab_18_0:
if (((ats_sum_ptr_type)arg1)->tag != 3) { goto __ats_lab_19_0 ; }
__ats_lab_18_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("prfn")) ;
break ;

/* branch: __ats_lab_19 */
__ats_lab_19_0:
if (((ats_sum_ptr_type)arg1)->tag != 4) { goto __ats_lab_20_0 ; }
__ats_lab_19_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("prfun")) ;
break ;

/* branch: __ats_lab_20 */
__ats_lab_20_0:
if (((ats_sum_ptr_type)arg1)->tag != 5) { goto __ats_lab_21_0 ; }
__ats_lab_20_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("praxi")) ;
break ;

/* branch: __ats_lab_21 */
__ats_lab_21_0:
// if (((ats_sum_ptr_type)arg1)->tag != 6) { ats_deadcode_failure_handle () ; }
__ats_lab_21_1:
/* tmp37 = */ atspre_fprint_string (arg0, ATSstrcst("castfn")) ;
break ;
} while (0) ;
return /* (tmp37) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 4738(line=222, offs=18) -- 4791(line=223, offs=47)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind_is_proof (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp38) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind_is_proof:
do {
/* branch: __ats_lab_22 */
__ats_lab_22_0:
if (((ats_sum_ptr_type)arg0)->tag != 3) { goto __ats_lab_23_0 ; }
__ats_lab_22_1:
tmp38 = ats_true_bool ;
break ;

/* branch: __ats_lab_23 */
__ats_lab_23_0:
__ats_lab_23_1:
tmp38 = ats_false_bool ;
break ;
} while (0) ;
return (tmp38) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind_is_proof] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 4870(line=230, offs=3) -- 5092(line=239, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_valkind (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp39) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_valkind:
do {
/* branch: __ats_lab_24 */
__ats_lab_24_0:
if (((ats_sum_ptr_type)arg1)->tag != 0) { goto __ats_lab_25_0 ; }
__ats_lab_24_1:
/* tmp39 = */ atspre_fprint_string (arg0, ATSstrcst("val")) ;
break ;

/* branch: __ats_lab_25 */
__ats_lab_25_0:
if (((ats_sum_ptr_type)arg1)->tag != 1) { goto __ats_lab_26_0 ; }
__ats_lab_25_1:
/* tmp39 = */ atspre_fprint_string (arg0, ATSstrcst("val+")) ;
break ;

/* branch: __ats_lab_26 */
__ats_lab_26_0:
if (((ats_sum_ptr_type)arg1)->tag != 2) { goto __ats_lab_27_0 ; }
__ats_lab_26_1:
/* tmp39 = */ atspre_fprint_string (arg0, ATSstrcst("val-")) ;
break ;

/* branch: __ats_lab_27 */
__ats_lab_27_0:
// if (((ats_sum_ptr_type)arg1)->tag != 3) { ats_deadcode_failure_handle () ; }
__ats_lab_27_1:
/* tmp39 = */ atspre_fprint_string (arg0, ATSstrcst("prval")) ;
break ;
} while (0) ;
return /* (tmp39) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_valkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5173(line=245, offs=3) -- 5360(line=254, offs=4)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind2caskind (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp40) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind2caskind:
do {
/* branch: __ats_lab_28 */
__ats_lab_28_0:
if (((ats_sum_ptr_type)arg0)->tag != 0) { goto __ats_lab_29_0 ; }
__ats_lab_28_1:
tmp40 = (ats_sum_ptr_type)(&_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_0) ;
break ;

/* branch: __ats_lab_29 */
__ats_lab_29_0:
if (((ats_sum_ptr_type)arg0)->tag != 3) { goto __ats_lab_30_0 ; }
__ats_lab_29_1:
tmp40 = (ats_sum_ptr_type)(&_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_pos_1) ;
break ;

/* branch: __ats_lab_30 */
__ats_lab_30_0:
if (((ats_sum_ptr_type)arg0)->tag != 1) { goto __ats_lab_31_0 ; }
__ats_lab_30_1:
tmp40 = (ats_sum_ptr_type)(&_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_pos_1) ;
break ;

/* branch: __ats_lab_31 */
__ats_lab_31_0:
// if (((ats_sum_ptr_type)arg0)->tag != 2) { ats_deadcode_failure_handle () ; }
__ats_lab_31_1:
tmp40 = (ats_sum_ptr_type)(&_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__CK_case_neg_2) ;
break ;
} while (0) ;
return (tmp40) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__valkind2caskind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5437(line=259, offs=17) -- 5486(line=260, offs=44)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_fun (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp41) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_fun:
do {
/* branch: __ats_lab_32 */
__ats_lab_32_0:
if (((ats_sum_ptr_type)arg0)->tag != 0) { goto __ats_lab_33_0 ; }
__ats_lab_32_1:
tmp41 = ats_true_bool ;
break ;

/* branch: __ats_lab_33 */
__ats_lab_33_0:
__ats_lab_33_1:
tmp41 = ats_false_bool ;
break ;
} while (0) ;
return (tmp41) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_fun] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5542(line=264, offs=17) -- 5591(line=265, offs=44)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_val (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp42) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_val:
do {
/* branch: __ats_lab_34 */
__ats_lab_34_0:
if (((ats_sum_ptr_type)arg0)->tag != 1) { goto __ats_lab_35_0 ; }
__ats_lab_34_1:
tmp42 = ats_true_bool ;
break ;

/* branch: __ats_lab_35 */
__ats_lab_35_0:
__ats_lab_35_1:
tmp42 = ats_false_bool ;
break ;
} while (0) ;
return (tmp42) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_val] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5649(line=269, offs=19) -- 5700(line=270, offs=46)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prfun (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp43) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prfun:
do {
/* branch: __ats_lab_36 */
__ats_lab_36_0:
if (((ats_sum_ptr_type)arg0)->tag != 3) { goto __ats_lab_37_0 ; }
__ats_lab_36_1:
tmp43 = ats_true_bool ;
break ;

/* branch: __ats_lab_37 */
__ats_lab_37_0:
__ats_lab_37_1:
tmp43 = ats_false_bool ;
break ;
} while (0) ;
return (tmp43) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prfun] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5760(line=274, offs=19) -- 5811(line=275, offs=46)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prval (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp44) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prval:
do {
/* branch: __ats_lab_38 */
__ats_lab_38_0:
if (((ats_sum_ptr_type)arg0)->tag != 4) { goto __ats_lab_39_0 ; }
__ats_lab_38_1:
tmp44 = ats_true_bool ;
break ;

/* branch: __ats_lab_39 */
__ats_lab_39_0:
__ats_lab_39_1:
tmp44 = ats_false_bool ;
break ;
} while (0) ;
return (tmp44) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_prval] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 5894(line=282, offs=3) -- 6022(line=291, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_proof (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp45) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_proof:
do {
/* branch: __ats_lab_40 */
__ats_lab_40_0:
if (((ats_sum_ptr_type)arg0)->tag != 2) { goto __ats_lab_41_0 ; }
__ats_lab_40_1:
tmp45 = ats_true_bool ;
break ;

/* branch: __ats_lab_41 */
__ats_lab_41_0:
if (((ats_sum_ptr_type)arg0)->tag != 3) { goto __ats_lab_42_0 ; }
__ats_lab_41_1:
tmp45 = ats_true_bool ;
break ;

/* branch: __ats_lab_42 */
__ats_lab_42_0:
if (((ats_sum_ptr_type)arg0)->tag != 4) { goto __ats_lab_43_0 ; }
__ats_lab_42_1:
tmp45 = ats_true_bool ;
break ;

/* branch: __ats_lab_43 */
__ats_lab_43_0:
__ats_lab_43_1:
tmp45 = ats_false_bool ;
break ;
} while (0) ;
return (tmp45) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_proof] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 6083(line=294, offs=20) -- 6137(line=295, offs=48)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_castfn (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp46) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_castfn:
do {
/* branch: __ats_lab_44 */
__ats_lab_44_0:
if (((ats_sum_ptr_type)arg0)->tag != 5) { goto __ats_lab_45_0 ; }
__ats_lab_44_1:
tmp46 = ats_true_bool ;
break ;

/* branch: __ats_lab_45 */
__ats_lab_45_0:
__ats_lab_45_1:
tmp46 = ats_false_bool ;
break ;
} while (0) ;
return (tmp46) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__dcstkind_is_castfn] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 6219(line=302, offs=3) -- 6559(line=313, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_dcstkind (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp47) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_dcstkind:
do {
/* branch: __ats_lab_46 */
__ats_lab_46_0:
if (((ats_sum_ptr_type)arg1)->tag != 0) { goto __ats_lab_47_0 ; }
__ats_lab_46_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKfun()")) ;
break ;

/* branch: __ats_lab_47 */
__ats_lab_47_0:
if (((ats_sum_ptr_type)arg1)->tag != 1) { goto __ats_lab_48_0 ; }
__ats_lab_47_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKval()")) ;
break ;

/* branch: __ats_lab_48 */
__ats_lab_48_0:
if (((ats_sum_ptr_type)arg1)->tag != 2) { goto __ats_lab_49_0 ; }
__ats_lab_48_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKpraxi()")) ;
break ;

/* branch: __ats_lab_49 */
__ats_lab_49_0:
if (((ats_sum_ptr_type)arg1)->tag != 3) { goto __ats_lab_50_0 ; }
__ats_lab_49_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKprfun()")) ;
break ;

/* branch: __ats_lab_50 */
__ats_lab_50_0:
if (((ats_sum_ptr_type)arg1)->tag != 4) { goto __ats_lab_51_0 ; }
__ats_lab_50_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKprval()")) ;
break ;

/* branch: __ats_lab_51 */
__ats_lab_51_0:
// if (((ats_sum_ptr_type)arg1)->tag != 5) { ats_deadcode_failure_handle () ; }
__ats_lab_51_1:
/* tmp47 = */ atspre_fprint_string (arg0, ATSstrcst("DCKcastfn()")) ;
break ;
} while (0) ;
return /* (tmp47) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_dcstkind] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 6634(line=318, offs=15) -- 6705(line=320, offs=51)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_clo (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp48) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_clo:
do {
/* branch: __ats_lab_52 */
__ats_lab_52_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_53_0 ; }
__ats_lab_52_1:
tmp48 = ats_true_bool ;
break ;

/* branch: __ats_lab_53 */
__ats_lab_53_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_53_1:
tmp48 = ats_false_bool ;
break ;
} while (0) ;
return (tmp48) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_clo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 6778(line=326, offs=15) -- 6852(line=328, offs=54)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_ptr (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp49) ;
ATSlocal (ats_int_type, tmp50) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_ptr:
do {
/* branch: __ats_lab_54 */
__ats_lab_54_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_55_0 ; }
__ats_lab_54_1:
tmp50 = ats_caselptrlab_mac(anairiats_sum_0, arg0, atslab_0) ;
tmp49 = atspre_neq_int_int (tmp50, 0) ;
break ;

/* branch: __ats_lab_55 */
__ats_lab_55_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_55_1:
tmp49 = ats_true_bool ;
break ;
} while (0) ;
return (tmp49) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_ptr] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 6907(line=332, offs=18) -- 6982(line=334, offs=55)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_cloptr (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp51) ;
ATSlocal (ats_int_type, tmp52) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_cloptr:
do {
/* branch: __ats_lab_56 */
__ats_lab_56_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_57_0 ; }
__ats_lab_56_1:
tmp52 = ats_caselptrlab_mac(anairiats_sum_0, arg0, atslab_0) ;
tmp51 = atspre_neq_int_int (tmp52, 0) ;
break ;

/* branch: __ats_lab_57 */
__ats_lab_57_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_57_1:
tmp51 = ats_false_bool ;
break ;
} while (0) ;
return (tmp51) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__funclo_is_cloptr] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7063(line=341, offs=3) -- 7208(line=344, offs=20)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__eq_funclo_funclo (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp53) ;
ATSlocal (ats_int_type, tmp54) ;
ATSlocal (ats_int_type, tmp55) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__eq_funclo_funclo:
do {
/* branch: __ats_lab_58 */
__ats_lab_58_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_59_0 ; }
__ats_lab_58_1:
if (arg1 == (ats_sum_ptr_type)0) { goto __ats_lab_60_1 ; }
__ats_lab_58_2:
tmp54 = ats_caselptrlab_mac(anairiats_sum_0, arg0, atslab_0) ;
tmp55 = ats_caselptrlab_mac(anairiats_sum_0, arg1, atslab_0) ;
tmp53 = atspre_eq_int_int (tmp54, tmp55) ;
break ;

/* branch: __ats_lab_59 */
__ats_lab_59_0:
if (arg0 != (ats_sum_ptr_type)0) { goto __ats_lab_60_0 ; }
__ats_lab_59_1:
if (arg1 != (ats_sum_ptr_type)0) { goto __ats_lab_60_1 ; }
__ats_lab_59_2:
tmp53 = ats_true_bool ;
break ;

/* branch: __ats_lab_60 */
__ats_lab_60_0:
__ats_lab_60_1:
__ats_lab_60_2:
tmp53 = ats_false_bool ;
break ;
} while (0) ;
return (tmp53) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__eq_funclo_funclo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7267(line=348, offs=19) -- 7308(line=348, offs=60)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__neq_funclo_funclo (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp56) ;
ATSlocal (ats_bool_type, tmp57) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__neq_funclo_funclo:
tmp57 = _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__eq_funclo_funclo (arg0, arg1) ;
tmp56 = atspre_neg_bool (tmp57) ;
return (tmp56) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__neq_funclo_funclo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7357(line=354, offs=3) -- 7492(line=359, offs=46)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp58) ;
ATSlocal (ats_int_type, tmp59) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo:
do {
/* branch: __ats_lab_61 */
__ats_lab_61_0:
if (arg1 == (ats_sum_ptr_type)0) { goto __ats_lab_62_0 ; }
__ats_lab_61_1:
tmp59 = ats_caselptrlab_mac(anairiats_sum_0, arg1, atslab_0) ;
/* tmp58 = */ atspre_fprintf_exn (arg0, ATSstrcst("CLO(%i)"), tmp59) ;
break ;

/* branch: __ats_lab_62 */
__ats_lab_62_0:
// if (arg1 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_62_1:
/* tmp58 = */ atspre_fprintf_exn (arg0, ATSstrcst("FUN")) ;
break ;
} while (0) ;
return /* (tmp58) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7548(line=362, offs=24) -- 7585(line=362, offs=61)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__print_funclo (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp60) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__print_funclo:
/* tmp60 = */ _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo (stdout, arg0) ;
return /* (tmp60) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__print_funclo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7609(line=363, offs=24) -- 7646(line=363, offs=61)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__prerr_funclo (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp61) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__prerr_funclo:
/* tmp61 = */ _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__fprint_funclo (stderr, arg0) ;
return /* (tmp61) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__prerr_funclo] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7875(line=379, offs=16) -- 7934(line=381, offs=4)
*/
ATSglobaldec()
ats_int_type
patsopt_debug_flag_get () {
/* local vardec */
ATSlocal (ats_int_type, tmp65) ;

__ats_lab_patsopt_debug_flag_get:
tmp65 = ats_ptrget_mac(ats_int_type, (&statmp62)) ;
return (tmp65) ;
} /* end of [patsopt_debug_flag_get] */

/*
// /tmp/ATS-Postiats/src/pats_basics.dats: 7988(line=384, offs=16) -- 8053(line=386, offs=4)
*/
ATSglobaldec()
ats_void_type
patsopt_debug_flag_set (ats_int_type arg0) {
/* local vardec */
// ATSlocal_void (tmp66) ;

__ats_lab_patsopt_debug_flag_set:
ats_ptrget_mac(ats_int_type, (&statmp62)) = arg0 ;
return /* (tmp66) */ ;
} /* end of [patsopt_debug_flag_set] */

/* static load function */

extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__staload (void) ;

ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__staload () {
static int _2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__staload_flag = 0 ;
if (_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__staload_flag) return ;
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__staload_flag = 1 ;

_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__staload () ;

return ;
} /* staload function */

/* dynamic load function */

// dynload flag declaration
extern ats_int_type _2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__dynload_flag ;

ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__dynload () {
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__dynload_flag = 1 ;
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2edats__staload () ;

#ifdef _ATS_PROOFCHECK
#endif /* _ATS_PROOFCHECK */

/* marking static variables for GC */
ATS_GC_MARKROOT(&statmp62, sizeof(ats_int_type)) ;

/* marking external values for GC */

/* code for dynamic loading */
ATS_GC_MARKROOT(&_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VIEWT0YPE_knd, sizeof(ats_int_type)) ;
_2tmp_2ATS_2dPostiats_2src_2pats_basics_2esats__VIEWT0YPE_knd = 3 ;
/* ats_int_type statmp62 ; */
statmp62 = 0 ;
/* statmp63 = */ atspre_vbox_make_view_ptr ((&statmp62)) ;
/* statmp64 = ats_selsin_mac(statmp63, atslab_1) */ ;
return ;
} /* end of [dynload function] */

/* external codes at mid */
/* external codes at bot */


ats_void_type
patsopt_vfprintf_ifdebug (
  ats_ptr_type out
, ats_ptr_type fmt
, va_list ap // variadic arguments
) {
//
  if (patsopt_debug_flag_get () > 0) {
    (void)vfprintf((FILE*)out, (char*)fmt, ap) ;
  } // end of [if]
//
  return ;
} // end of [patsopt_debug_printf]

ats_void_type
patsopt_prerrf_ifdebug (
  ats_ptr_type fmt, ...
) {
  va_list ap ;
  va_start(ap, fmt) ;
  patsopt_vfprintf_ifdebug(stderr, (char*)fmt, ap) ;
  va_end(ap) ;
  return ;
} // end of [patsopt_debug_prerrf]



/* ****** ****** */

/* end of [pats_basics_dats.c] */
