

#include "BUILTIN.h"

#include "Nat.h"
extern OBJ _ATreeMapEnv_4(OBJ,OBJ,OBJ);extern OBJ __ATreeMapEnv_4;
extern TUP2 _ATreeMapEnv_5(OBJ,OBJ,OBJ);extern OBJ __ATreeMapEnv_5;
extern TUP2 _ATreeMapEnv_6(OBJ,OBJ,OBJ);extern OBJ __ATreeMapEnv_6;
extern TUP2 _ATreeMapEnv_7(OBJ,OBJ,OBJ);extern OBJ __ATreeMapEnv_7;
extern TUP2 _ATreeMapEnv_8(OBJ,OBJ,OBJ);extern OBJ __ATreeMapEnv_8;
extern OBJ _AHeapConv_13(OBJ,OBJ);extern OBJ __AHeapConv_13;

#include "Char.h"
extern OBJ _AHeapMapEnv_6(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AHeapMapEnv_6; /* *_V */
extern TUP2 _AHeapMapEnv_7(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AHeapMapEnv_7; /* *_^ */
extern TUP2 _AHeapMapEnv_8(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AHeapMapEnv_8; /* *_pre */
extern TUP2 _AHeapMapEnv_9(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AHeapMapEnv_9; /* *_in */
extern TUP2 _AHeapMapEnv_10(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AHeapMapEnv_10; /* *_post */

extern OBJ _AHeapMapEnv_6(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_V */
{OBJ r;
 FRCLS(x1,1);
 {OBJ x6;
  x6=_ATreeMapEnv_4(x3,x4,x5);
  r=_AHeapConv_13(x2,x6);}
 return r;}

extern TUP2 _AHeapMapEnv_7(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_^ */
{TUP2 r;
 FRCLS(x1,1);
 {TUP2 x8;
  x8=_ATreeMapEnv_5(x3,x4,x5);r.c1=x8.c1;
  r.c2=_AHeapConv_13(x2,x8.c2);}
 return r;}
extern OBJ _AHeapMapEnv_7_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_^ */
{OBJ r;
 {TUP2 t=_AHeapMapEnv_7(x1,x2,x3,x4,x5);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AHeapMapEnv_8(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_pre */
{TUP2 r;
 FRCLS(x1,1);
 {TUP2 x8;
  x8=_ATreeMapEnv_6(x3,x4,x5);r.c1=x8.c1;
  r.c2=_AHeapConv_13(x2,x8.c2);}
 return r;}
extern OBJ _AHeapMapEnv_8_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_pre */
{OBJ r;
 {TUP2 t=_AHeapMapEnv_8(x1,x2,x3,x4,x5);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AHeapMapEnv_9(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_in */
{TUP2 r;
 FRCLS(x1,1);
 {TUP2 x8;
  x8=_ATreeMapEnv_7(x3,x4,x5);r.c1=x8.c1;
  r.c2=_AHeapConv_13(x2,x8.c2);}
 return r;}
extern OBJ _AHeapMapEnv_9_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_in */
{OBJ r;
 {TUP2 t=_AHeapMapEnv_9(x1,x2,x3,x4,x5);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern TUP2 _AHeapMapEnv_10(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_post */
{TUP2 r;
 FRCLS(x1,1);
 {TUP2 x8;
  x8=_ATreeMapEnv_8(x3,x4,x5);r.c1=x8.c1;
  r.c2=_AHeapConv_13(x2,x8.c2);}
 return r;}
extern OBJ _AHeapMapEnv_10_c(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* *_post */
{OBJ r;
 {TUP2 t=_AHeapMapEnv_10(x1,x2,x3,x4,x5);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

static OBJ _mt_5_0_2(OBJ t,OBJ t1,OBJ t2) 
{OBJ r;
 DPCLS(t,r);
 INCCLS(r,0,2);
 FLDCLS(r,1)=t1;
 FLDCLS(r,2)=t2;
 return r;}

static OBJ _mt_5_2_3(OBJ t,OBJ t1,OBJ t2,OBJ t3) 
{OBJ r;
 if(EXCLS(t)){
  DSCLSF(t);
 }else{
  COPY(FLDCLS(t,1),1);
  COPY(FLDCLS(t,2),1);
  DCCLS(t,1);}
 r=(*(OBJ(*)(OBJ,OBJ,OBJ,OBJ,OBJ))ENTRY(t))(FLDCLS(t,1),FLDCLS(t,2),t1,t2,t3);
 return r;}

init_AHeapMapEnv()
{
 static int visited=0; if(visited) return; visited=1;
 init_AHeap();
 init_ANat();
 init_AOption();
 init_ASeq();
 init_ATree();
 init_ATreeMapEnv();
 init_AHeapConv();
 init_AString();
 init_AChar();
 init_ARelCmp();
 init_ATreeConv();
 CLS(5,_AHeapMapEnv_10_c,__AHeapMapEnv_10);
 CLS(5,_AHeapMapEnv_9_c,__AHeapMapEnv_9);
 CLS(5,_AHeapMapEnv_8_c,__AHeapMapEnv_8);
 CLS(5,_AHeapMapEnv_7_c,__AHeapMapEnv_7);
 CLS(5,_AHeapMapEnv_6,__AHeapMapEnv_6);
 MTH(5,0,2,_mt_5_0_2);LZYMTH(5,0,2,_mt_5_0_2);
 MTH(5,2,3,_mt_5_2_3);LZYMTH(5,2,3,_mt_5_2_3);}

