

#include "BUILTIN.h"
extern OBJ _AMapByBST_26(OBJ,OBJ,OBJ);extern OBJ __AMapByBST_26;

#include "Nat.h"
extern OBJ _ABSTreeMap_5(OBJ,OBJ,OBJ,OBJ);extern OBJ __ABSTreeMap_5;
extern OBJ _AMapByBSTMap_5(OBJ,OBJ,OBJ);OBJ __AMapByBSTMap_5; /* * */
extern OBJ _AMapByBSTMap_6(OBJ,OBJ);OBJ __AMapByBSTMap_6; /* *'6 */

extern OBJ _AMapByBSTMap_5(OBJ x1,OBJ x2,OBJ x3) /* * */
{OBJ r;
 CPCLS(__AMapByBSTMap_6,1);
 CPCLS(__AMapByBST_26,1);
 {OBJ x4;OBJ x5;
  x4=(*(OBJ(*)(OBJ,OBJ))METHOD(__AMapByBST_26,1))(__AMapByBST_26,x1);
  CPCLS(x4,1);
  x5=(*(OBJ(*)(OBJ,OBJ))METHOD(__AMapByBSTMap_6,1))(__AMapByBSTMap_6,x2);
  r=_ABSTreeMap_5(x4,x4,x5,x3);}
 return r;}

extern OBJ _AMapByBSTMap_6(OBJ x1,OBJ x2) /* *'6 */
{OBJ r;
 {OBJ x10;OBJ x11=FLD1(x2,2);
  if(EXPRD(x2,1)){
   {OBJ x12;
    x12=(*(OBJ(*)(OBJ,OBJ))METHOD(x1,1))(x1,x11);
    RSOME(x2,r);FLD1(r,2)=x12;}
  }else{
   x10=FLD1(x2,1);COPY(x10,1);COPY(x11,1);
   {OBJ x12;
    x12=(*(OBJ(*)(OBJ,OBJ))METHOD(x1,1))(x1,x11);
    FRPRD(x2,1);PRD1(2,r);FLD1(r,1)=x10;FLD1(r,2)=x12;}}}
 return r;}

init_AMapByBSTMap()
{
 static int visited=0; if(visited) return; visited=1;
 init_AMapByBST();
 init_ANat();
 init_AOption();
 init_ASetByBST();
 init_ASeq();
 init_APair();
 init_ABSTree();
 init_ATree();
 init_ASetByBSTMap();
 init_ACAST();
 init_ABSTreeMap();
 CLS(2,_AMapByBSTMap_6,__AMapByBSTMap_6);
 CLS(3,_AMapByBSTMap_5,__AMapByBSTMap_5);}

