

#include "BUILTIN.h"

#include "Bitset.h"
extern OBJ __ATerminal_4;
extern OBJ __ATerminal_6;
extern OBJ __ATerminal_72;
extern OBJ _ATerminal_141(OBJ,OBJ);extern OBJ __ATerminal_141;
extern OBJ _ATerminal_145(OBJ);extern OBJ __ATerminal_145;
extern OBJ _ARep_119(OBJ);extern OBJ __ARep_119;
extern OBJ __ARep_187;
extern OBJ _AOcPos_14(OBJ,OBJ);extern OBJ __AOcPos_14;
extern OBJ __AOcPos_35;
extern OBJ __AOcError_8;
extern OBJ __AOcError_12;
extern OBJ __AOcError_15;
extern OBJ _AOcError_16(OBJ,OBJ,OBJ);extern OBJ __AOcError_16;
extern OBJ _ASet_44(OBJ,OBJ,OBJ);extern OBJ __ASet_44;
extern OBJ __ASeq_6;
extern OBJ _ASeq_38(OBJ);extern OBJ __ASeq_38;

#include "Nat.h"
extern OBJ _AString_4(OBJ);extern OBJ __AString_4;
extern OBJ _AString_5(OBJ);extern OBJ __AString_5;
extern OBJ _AString_49(OBJ);extern OBJ __AString_49;

#include "Char.h"

#include "Int.h"

#include "Denotation.h"
extern OBJ _ASetMap_5(OBJ,OBJ,OBJ,OBJ);extern OBJ __ASetMap_5;

#include "Array.h"
extern OBJ _ASeqReduce_3(OBJ,OBJ,OBJ);extern OBJ __ASeqReduce_3;
extern OBJ _APErr_1(OBJ,OBJ);OBJ __APErr_1; /* pErr */
extern OBJ _APErr_2(OBJ);OBJ __APErr_2; /* pErr,1 */
extern OBJ _APErr_3(OBJ,OBJ,OBJ);OBJ __APErr_3; /* pErrExp */
extern OBJ _APErr_4(OBJ,OBJ,OBJ);OBJ __APErr_4; /* pErrExp,1 */
extern OBJ _APErr_5(OBJ,OBJ);OBJ __APErr_5; /* pErrExp,2 */
extern OBJ _APErr_6(OBJ);OBJ __APErr_6; /* pErrExp,3 */
extern OBJ _APErr_7(OBJ,OBJ,OBJ);OBJ __APErr_7; /* pErrExp,4 */
extern OBJ _APErr_8(OBJ,OBJ);OBJ __APErr_8; /* pErrExp,5 */
extern OBJ _APErr_9(OBJ,OBJ);OBJ __APErr_9; /* pErrExp,6 */
extern OBJ _APErr_10(OBJ);OBJ __APErr_10; /* pErrUnExp */
extern OBJ _APErr_11(OBJ,OBJ);OBJ __APErr_11; /* pErrUnExp,1 */
extern OBJ _APErr_12(OBJ,OBJ);OBJ __APErr_12; /* pErrMiss */
extern OBJ _APErr_13(OBJ,OBJ);OBJ __APErr_13; /* pErrExpFN */
extern OBJ _APErr_14(OBJ,OBJ);OBJ __APErr_14; /* pHintExpFN */
extern OBJ _APErr_15(OBJ);OBJ __APErr_15; /* ok */
OBJ __APErr_16; /* errPos */
extern OBJ _APErr_17(OBJ);OBJ __APErr_17; /* missPos */
extern OBJ _APErr_18(OBJ,OBJ,OBJ);OBJ __APErr_18; /* calcMissPos */
extern OBJ _APErr_19(OBJ,OBJ);OBJ __APErr_19; /* calcMissPos,1 */
OBJ __APErr_20; /* ideOnly */
OBJ __APErr_21; /* oriFct */
OBJ __APErr_22; /* oriOri */
OBJ __APErr_23; /* oriOriFct */
OBJ __APErr_24; /* missOri */
OBJ __APErr_25; /* missLhs */
OBJ __APErr_26; /* missRhs */
OBJ __APErr_27; /* missName */
OBJ __APErr_28; /* expFct */
OBJ __APErr_29; /* noAs */
OBJ __APErr_30; /* noMix */
OBJ __APErr_31; /* mtMix */
OBJ __APErr_32; /* opExp */
OBJ __APErr_33; /* argExp */
OBJ __APErr_34; /* expLocal */
OBJ __APErr_35; /* noSort */
OBJ __APErr_36; /* missOp */
OBJ __APErr_37; /* missOprnd */
OBJ __APErr_38; /* missPostOp */
OBJ __APErr_39; /* missInfOp */
OBJ __APErr_40; /* noWild */
OBJ __APErr_41; /* noWildAsOp */
OBJ __APErr_42; /* noTwoUS */
OBJ __APErr_43; /* compound_object */
OBJ __APErr_44; /* ho_inf_pattern */
OBJ __APErr_45; /* ho_pattern */
extern OBJ _APErr_46(OBJ,OBJ);OBJ __APErr_46; /* pErrExpMsg */
extern OBJ _APErr_47(OBJ,OBJ,OBJ);OBJ __APErr_47; /* pErrExpMsg,1 */
extern OBJ _APErr_50(OBJ);OBJ __APErr_50; /* ` */
extern OBJ _APErr_53(OBJ,OBJ);OBJ __APErr_53; /* nextPos */
OBJ __APErr_54; /* pErr,1'54 */
OBJ __APErr_55; /* pErrExpMsg'55 */
OBJ __APErr_56; /* pErrExpMsg'56 */
OBJ __APErr_57; /* pErrExpMsg'57 */
OBJ __APErr_58; /* pErrExpMsg,1'58 */
OBJ __APErr_59; /* pErrExpMsg,1'59 */
OBJ __APErr_60; /* `'60 */
extern OBJ _APErr_61(OBJ);OBJ __APErr_61; /* `'61 */
OBJ __APErr_62; /* pErrExp,1'62 */
OBJ __APErr_63; /* pErrExp,1'63 */
OBJ __APErr_64; /* pErrUnExp,1'64 */
OBJ __APErr_65; /* pErrUnExp,1'65 */
OBJ __APErr_66; /* pErrMiss'66 */
OBJ __APErr_67; /* pErrExpFN'67 */
OBJ __APErr_68; /* pHintExpFN'68 */
OBJ __APErr_69; /* pHintExpFN'69 */

extern OBJ _APErr_1(OBJ x1,OBJ x2) /* pErr */
{OBJ r;
 r=_AOcError_16(__AOcError_12,x1,x2);
 return r;}

extern OBJ _APErr_2(OBJ x1) /* pErr,1 */
{OBJ r;
 COPY(__APErr_16,1);
 CPPRD(__APErr_54,1);
 {OBJ x2;
  ADenotation_4(__APErr_54,x1,x2);
  r=_AOcError_16(__AOcError_12,x2,__APErr_16);}
 return r;}

extern OBJ _APErr_3(OBJ x1,OBJ x2,OBJ x3) /* pErrExp */
{OBJ r;
 if(ISPRM(x2)){
  {OBJ x14;
   x14=_APErr_50(x1);
   r=_APErr_46(x14,x3);}
 }else{
  {OBJ x15=FLD1(x2,1);
   if(EXPRD(x2,1)){
    FREE(FLD1(x2,2),1);DSPRDF(x2);
   }else{
    CPPRD(x15,1);
    FRPRD(x2,1);}
   r=_APErr_4(x1,x15,x3);}}
 return r;}

extern OBJ _APErr_4(OBJ x1,OBJ x2,OBJ x3) /* pErrExp,1 */
{OBJ r;
 {OBJ x12;
  x12=_APErr_50(x1);
  {OBJ x25=FLD1(x2,1);OBJ x26=FLD1(x2,2);OBJ x27=FLD1(x2,3);
   if(EXPRD(x2,1)){
    DSPRDF(x2);
   }else{
    CPPRD(x26,1);COPY(x27,1);
    FRPRD(x2,1);}
   {OBJ x28;OBJ x29;OBJ x30;OBJ x33;
    ANat_76(x25,__ATerminal_6,x28);
    ANat_76(x25,__ATerminal_72,x29);
    if(ISTGPRM(x28,1)){
     x30=__ABUILTIN_5;
    }else{
     ANat_76(x25,__ATerminal_4,x30);}
    if(ISTGPRM(x29,1)){
     CPPRD(__APErr_62,1);
     CPPRD(__APErr_63,1);
     {OBJ x31;OBJ x32;
      x31=_ARep_119(x26);
      ADenotation_4(x31,__APErr_62,x32);
      ADenotation_4(__APErr_63,x32,x33);}
    }else{
     FRPRD(x26,1);
     CPPRD(__ARep_187,1);
     x33=__ARep_187;}
    if(ISTGPRM(x30,1)){
     FREE(x27,1);
     FRPRD(x33,1);
     r=_APErr_46(x12,x3);
    }else{
     FREE(x3,1);
     {OBJ x34;OBJ x35;
      x34=_ATerminal_145(x25);
      ADenotation_4(x34,x33,x35);
      r=_APErr_47(x12,x35,x27);}}}}}
 return r;}

extern OBJ _APErr_5(OBJ x1,OBJ x2) /* pErrExp,2 */
{OBJ r;
 {OBJ x5=FLD1(x2,3);
  COPY(x5,1);
  {OBJ x6;
   x6=x5;
   r=_APErr_4(x1,x2,x6);}}
 return r;}

extern OBJ _APErr_6(OBJ x1) /* pErrExp,3 */
{OBJ r;
 COPY(__APErr_16,1);
 r=_APErr_3(x1,__ASeq_6,__APErr_16);
 return r;}

extern OBJ _APErr_7(OBJ x1,OBJ x2,OBJ x3) /* pErrExp,4 */
{OBJ r;
 if(ISPRM(x3)){
  r=_APErr_46(x1,x2);
 }else{
  {OBJ x20=FLD1(x3,1);
   if(EXPRD(x3,1)){
    FREE(FLD1(x3,2),1);DSPRDF(x3);
   }else{
    CPPRD(x20,1);
    FRPRD(x3,1);}
   {OBJ x22=FLD1(x20,1);
    if(EXPRD(x20,1)){
     DSPRD(x20);
    }else{
     FRPRD(x20,1);}
    {OBJ x25;OBJ x26;
     ANat_76(x22,__ATerminal_6,x25);
     if(ISTGPRM(x25,1)){
      x26=__ABUILTIN_5;
     }else{
      ANat_76(x22,__ATerminal_4,x26);}
     if(ISTGPRM(x26,1)){
      r=_APErr_46(x1,x2);
     }else{
      {OBJ x27;
       x27=_ATerminal_145(x22);
       r=_APErr_47(x1,x27,x2);}}}}}}
 return r;}

extern OBJ _APErr_8(OBJ x1,OBJ x2) /* pErrExp,5 */
{OBJ r;
 if(ISPRM(x2)){
  COPY(__APErr_16,1);
  r=_APErr_7(x1,__APErr_16,__ASeq_6);
 }else{
  {OBJ x25=FLD1(x2,1);OBJ x26;FLAG x_x2=EXPRD(x2,1);
   if(x_x2){
    CPPRD(x25,1);
   }else{
    x26=FLD1(x2,2);CPPRD(x25,2);COPY(x26,1);}
   {OBJ x28;
    if(x_x2){
     RSOME(x2,x28);
    }else{
     FRPRD(x2,1);PRD1(2,x28);FLD1(x28,1)=x25;FLD1(x28,2)=x26;}
    {OBJ x31=FLD1(x25,3);
     if(EXPRD(x25,1)){
      FRPRD(FLD1(x25,2),1);DSPRDF(x25);
     }else{
      COPY(x31,1);
      FRPRD(x25,1);}
     r=_APErr_7(x1,x31,x28);}}}}
 return r;}

extern OBJ _APErr_9(OBJ x1,OBJ x2) /* pErrExp,6 */
{OBJ r;
 if(ISPRM(x2)){
  HLT("PErr at <unknown> : missing else in pErrExp\'PErr:set->seq->err");
 }else{
  {OBJ x13=FLD1(x2,1);
   if(EXPRD(x2,1)){
    FREE(FLD1(x2,2),1);DSPRDF(x2);
   }else{
    CPPRD(x13,1);
    FRPRD(x2,1);}
   {OBJ x17=FLD1(x13,3);
    COPY(x17,1);
    r=_APErr_4(x1,x13,x17);}}}
 return r;}

extern OBJ _APErr_10(OBJ x1) /* pErrUnExp */
{OBJ r;
 r=_APErr_11(__ASeq_6,x1);
 return r;}

extern OBJ _APErr_11(OBJ x1,OBJ x2) /* pErrUnExp,1 */
{OBJ r;
 if(ISPRM(x2)){
  FREE(x1,1);
  CPPRD(__AOcError_15,1);
  r=__AOcError_15;
 }else{
  {OBJ x43=FLD1(x2,1);
   if(EXPRD(x2,1)){
    FREE(FLD1(x2,2),1);DSPRDF(x2);
   }else{
    CPPRD(x43,1);
    FRPRD(x2,1);}
   {OBJ x45=FLD1(x43,1);OBJ x46=FLD1(x43,2);OBJ x47=FLD1(x43,3);
    if(EXPRD(x43,1)){
     DSPRDF(x43);
    }else{
     CPPRD(x46,1);COPY(x47,1);
     FRPRD(x43,1);}
    CPCLS(__ATerminal_141,1);
    {OBJ x48;
     x48=_ASet_44(__ATerminal_141,x45,x1);
     if(ISTGPRM(x48,1)){
      FRPRD(x46,1);
      FREE(x47,1);
      CPPRD(__AOcError_15,1);
      r=__AOcError_15;
     }else{
      {OBJ x49;OBJ x50;OBJ x53;OBJ x54;OBJ x55;
       ANat_76(x45,__ATerminal_72,x49);
       x50=_ATerminal_145(x45);
       if(ISTGPRM(x49,1)){
	CPPRD(__APErr_64,2);
	CPPRD(__APErr_65,1);
	{OBJ x51;OBJ x52;
	 x51=_ARep_119(x46);
	 ADenotation_4(x51,__APErr_64,x52);
	 ADenotation_4(__APErr_64,x52,x53);}
       }else{
	FRPRD(x46,1);
	CPPRD(__APErr_65,1);
	CPPRD(__ARep_187,1);
	x53=__ARep_187;}
       ADenotation_4(x50,x53,x54);
       ADenotation_4(__APErr_65,x54,x55);
       r=_AOcError_16(__AOcError_12,x55,x47);}}}}}}
 return r;}

extern OBJ _APErr_12(OBJ x1,OBJ x2) /* pErrMiss */
{OBJ r;
 CPPRD(__APErr_66,1);
 {OBJ x3;
  ADenotation_4(__APErr_66,x1,x3);
  r=_AOcError_16(__AOcError_12,x3,x2);}
 return r;}

extern OBJ _APErr_13(OBJ x1,OBJ x2) /* pErrExpFN */
{OBJ r;
 CPPRD(__APErr_67,1);
 {OBJ x3;
  ADenotation_4(x1,__APErr_67,x3);
  {OBJ x6=FLD1(x2,3);
   if(EXPRD(x2,1)){
    FRPRD(FLD1(x2,2),1);DSPRDF(x2);
   }else{
    COPY(x6,1);
    FRPRD(x2,1);}
   CPPRD(__APErr_59,1);
   {OBJ x7;OBJ x8;
    x7=x6;
    ADenotation_4(__APErr_59,x3,x8);
    r=_AOcError_16(__AOcError_12,x8,x7);}}}
 return r;}

extern OBJ _APErr_14(OBJ x1,OBJ x2) /* pHintExpFN */
{OBJ r;
 CPPRD(__APErr_68,1);
 {OBJ x3;
  ADenotation_4(x1,__APErr_68,x3);
  {OBJ x6=FLD1(x2,3);
   if(EXPRD(x2,1)){
    FRPRD(FLD1(x2,2),1);DSPRDF(x2);
   }else{
    COPY(x6,1);
    FRPRD(x2,1);}
   CPPRD(__APErr_69,1);
   {OBJ x7;OBJ x8;
    x7=x6;
    ADenotation_4(__APErr_69,x3,x8);
    r=_AOcError_16(__AOcError_8,x8,x7);}}}
 return r;}

extern OBJ _APErr_15(OBJ x1) /* ok */
{OBJ r;
 CPPRD(__AOcError_15,1);
 FREE(x1,1);
 r=__AOcError_15;
 return r;}

extern OBJ _APErr_17(OBJ x1) /* missPos */
{OBJ r;
 {OBJ x16=FLD1(x1,2);OBJ x17=FLD1(x1,3);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   CPPRD(x16,1);COPY(x17,1);
   FRPRD(x1,1);}
  {OBJ x19=FLD1(x16,2);
   if(EXPRD(x16,1)){
    DSPRDF(x16);
   }else{
    CPPRD(x19,1);
    FRPRD(x16,1);}
   {OBJ x21;
    x21=_AString_49(x19);
    r=_APErr_53(x17,x21);}}}
 return r;}

extern OBJ _APErr_18(OBJ x1,OBJ x2,OBJ x3) /* calcMissPos */
{OBJ r;
 {OBJ x6;OBJ x10;OBJ x9;
  if(ISPRM(x2)){
   x6=__ABUILTIN_5;
  }else{
   x6=__ABUILTIN_3;}
  if(ISTGPRM(x6,1)){
   {OBJ x51;
    if(ISPRM(x3)){
     x9=__ABUILTIN_5;
    }else{
     x9=__ABUILTIN_3;}
    x10=__ABUILTIN_3;}
  }else{
   x10=__ABUILTIN_5;x9=__ABUILTIN_3;}
  if(ISTGPRM(x9,1)){
   FREE(x2,1);
   FREE(x3,1);
   r=_APErr_17(x1);
  }else{
   FRPRD(x1,1);
   {OBJ x16;
    if(ISTGPRM(x6,1)){
     if(ISPRM(x3)){
      x16=__ABUILTIN_3;
     }else{
      x16=__ABUILTIN_5;}
    }else{
     x16=__ABUILTIN_3;}
    if(ISTGPRM(x16,1)){
     FREE(x2,1);
     {OBJ x22;OBJ x19;
      if(ISPRM(x3)){
       HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
      }else{
       {OBJ x28=FLD1(x3,1);
	if(EXPRD(x3,1)){
	 x22=x28;
	 FREE(FLD1(x3,2),1);DSPRDF(x3);
	}else{
	 CPPRD(x28,1);
	 x22=x28;
	 FRPRD(x3,1);}
	x19=__ABUILTIN_3;}}
      {OBJ x25=FLD1(x22,3);
       if(EXPRD(x22,1)){
	r=x25;
	FRPRD(FLD1(x22,2),1);DSPRDF(x22);
       }else{
	COPY(x25,1);
	r=x25;
	FRPRD(x22,1);}}}
    }else{
     {OBJ x33;
      if(ISTGPRM(x10,1)){
       if(ISPRM(x3)){
	x33=__ABUILTIN_5;
       }else{
	x33=__ABUILTIN_3;}
      }else{
       x33=__ABUILTIN_3;}
      if(ISTGPRM(x33,1)){
       FREE(x3,1);
       {OBJ x34;
	x34=_ASeq_38(x2);
	r=_APErr_17(x34);}
      }else{
       FREE(x2,1);
       {OBJ x40;OBJ x37;
	if(ISPRM(x3)){
	 HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
	}else{
	 {OBJ x46=FLD1(x3,1);
	  if(EXPRD(x3,1)){
	   x40=x46;
	   FREE(FLD1(x3,2),1);DSPRDF(x3);
	  }else{
	   CPPRD(x46,1);
	   x40=x46;
	   FRPRD(x3,1);}
	  x37=__ABUILTIN_3;}}
	{OBJ x43=FLD1(x40,3);
	 if(EXPRD(x40,1)){
	  r=x43;
	  FRPRD(FLD1(x40,2),1);DSPRDF(x40);
	 }else{
	  COPY(x43,1);
	  r=x43;
	  FRPRD(x40,1);}}}}}}}}}
 return r;}

extern OBJ _APErr_19(OBJ x1,OBJ x2) /* calcMissPos,1 */
{OBJ r;
 {OBJ x5;OBJ x9;OBJ x8;
  if(ISPRM(x1)){
   x5=__ABUILTIN_5;
  }else{
   x5=__ABUILTIN_3;}
  if(ISTGPRM(x5,1)){
   {OBJ x50;
    if(ISPRM(x2)){
     x8=__ABUILTIN_5;
    }else{
     x8=__ABUILTIN_3;}
    x9=__ABUILTIN_3;}
  }else{
   x9=__ABUILTIN_5;x8=__ABUILTIN_3;}
  if(ISTGPRM(x8,1)){
   FREE(x1,1);
   FREE(x2,1);
   COPY(__APErr_16,1);
   r=__APErr_16;
  }else{
   {OBJ x15;
    if(ISTGPRM(x5,1)){
     if(ISPRM(x2)){
      x15=__ABUILTIN_3;
     }else{
      x15=__ABUILTIN_5;}
    }else{
     x15=__ABUILTIN_3;}
    if(ISTGPRM(x15,1)){
     FREE(x1,1);
     {OBJ x21;OBJ x18;
      if(ISPRM(x2)){
       HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
      }else{
       {OBJ x27=FLD1(x2,1);
	if(EXPRD(x2,1)){
	 x21=x27;
	 FREE(FLD1(x2,2),1);DSPRDF(x2);
	}else{
	 CPPRD(x27,1);
	 x21=x27;
	 FRPRD(x2,1);}
	x18=__ABUILTIN_3;}}
      {OBJ x24=FLD1(x21,3);
       if(EXPRD(x21,1)){
	r=x24;
	FRPRD(FLD1(x21,2),1);DSPRDF(x21);
       }else{
	COPY(x24,1);
	r=x24;
	FRPRD(x21,1);}}}
    }else{
     {OBJ x32;
      if(ISTGPRM(x9,1)){
       if(ISPRM(x2)){
	x32=__ABUILTIN_5;
       }else{
	x32=__ABUILTIN_3;}
      }else{
       x32=__ABUILTIN_3;}
      if(ISTGPRM(x32,1)){
       FREE(x2,1);
       {OBJ x33;
	x33=_ASeq_38(x1);
	r=_APErr_17(x33);}
      }else{
       FREE(x1,1);
       {OBJ x39;OBJ x36;
	if(ISPRM(x2)){
	 HLT("Seq at <unknown> : undefined selection ft\'Seq:seq->data");
	}else{
	 {OBJ x45=FLD1(x2,1);
	  if(EXPRD(x2,1)){
	   x39=x45;
	   FREE(FLD1(x2,2),1);DSPRDF(x2);
	  }else{
	   CPPRD(x45,1);
	   x39=x45;
	   FRPRD(x2,1);}
	  x36=__ABUILTIN_3;}}
	{OBJ x42=FLD1(x39,3);
	 if(EXPRD(x39,1)){
	  r=x42;
	  FRPRD(FLD1(x39,2),1);DSPRDF(x39);
	 }else{
	  COPY(x42,1);
	  r=x42;
	  FRPRD(x39,1);}}}}}}}}}
 return r;}

extern OBJ _APErr_46(OBJ x1,OBJ x2) /* pErrExpMsg */
{OBJ r;
 CPPRD(__APErr_55,1);
 CPPRD(__APErr_56,1);
 CPPRD(__APErr_57,1);
 {OBJ x3;OBJ x4;OBJ x5;
  ADenotation_4(x1,__APErr_55,x3);
  ADenotation_4(__APErr_56,x3,x4);
  ADenotation_4(__APErr_57,x4,x5);
  r=_AOcError_16(__AOcError_12,x5,x2);}
 return r;}

extern OBJ _APErr_47(OBJ x1,OBJ x2,OBJ x3) /* pErrExpMsg,1 */
{OBJ r;
 CPPRD(__APErr_55,1);
 CPPRD(__APErr_58,1);
 CPPRD(__APErr_59,1);
 {OBJ x4;OBJ x5;OBJ x6;OBJ x7;
  ADenotation_4(x2,__APErr_55,x4);
  ADenotation_4(__APErr_58,x4,x5);
  ADenotation_4(x1,x5,x6);
  ADenotation_4(__APErr_59,x6,x7);
  r=_AOcError_16(__AOcError_12,x7,x3);}
 return r;}

extern OBJ _APErr_50(OBJ x1) /* ` */
{OBJ r;
 CPCLS(__APErr_61,1);
 CPCLS(__ATerminal_141,1);
 CPCLS(__ATerminal_145,1);
 CPPRD(__ARep_187,1);
 CPCLS(__ADenotation_17,1);
 {OBJ x2;OBJ x3;
  x2=(*(OBJ(*)(OBJ,OBJ))METHOD(__APErr_61,1))(__APErr_61,__ABUILTIN_20);
  x3=_ASetMap_5(__ATerminal_141,__ADenotation_17,__ATerminal_145,x1);
  r=_ASeqReduce_3(x2,__ARep_187,x3);}
 return r;}

extern OBJ _APErr_53(register OBJ x1,register OBJ x2) /* nextPos */
{OBJ r;
 for(;;){
  if(ISPRM(x2)){
   r=x1;
  }else{
   CPPRD(x2,1);
   {OBJ x17;OBJ x18;OBJ x19;
    x17=_AString_4(x2);
    x18=_AString_5(x2);
    x19=_AOcPos_14(x1,x18);
    x1=x19;x2=x17;continue;}}
  break;}
 return r;}

extern OBJ _APErr_61(OBJ x1) /* `'61 */
{OBJ r;
 CPPRD(__APErr_60,1);
 CPCLS(__ADenotation_6,1);
 r=(*(OBJ(*)(OBJ,OBJ))METHOD(__ADenotation_6,1))(__ADenotation_6,__APErr_60);
 return r;}


static OBJ _mt_1_0_3(OBJ t,OBJ t1,OBJ t2,OBJ t3) 
{OBJ r;
 {OBJ t4;
  DCCLS(t,1);
  t4=(*(OBJ(*)(OBJ))ENTRY(t))(t1);
  r=(*(OBJ(*)(OBJ,OBJ,OBJ))METHOD(t4,2))(t4,t2,t3);}
 return r;}

static OBJ _mt_3_1_1(OBJ t,OBJ t1) 
{OBJ r;
 if(EXCLS(t)){
  r=t;
 }else{
  DPCLS(t,r);
  FLDCLS(r,1)=FLDCLS(t,1);
  COPY(FLDCLS(r,1),1);}
 INCCLS(r,1,1);
 FLDCLS(r,2)=t1;
 return r;}

init_APErr()
{
 static int visited=0; if(visited) return; visited=1;
 init_ABitset();
 init_AMap();
 init_ASetByBST();
 init_ABSTree();
 init_ATerminal();
 init_ATree();
 init_AToken();
 init_AStringMapSeq();
 init_ARep();
 init_AOcPos();
 init_AOcError();
 init_ASet();
 init_ASeq();
 init_ANat();
 init_AOption();
 init_AString();
 init_AOcOptions();
 init_ACom();
 init_AVoid();
 init_AChar();
 init_AStream();
 init_AFile();
 init_AInt();
 init_ARepTab();
 init_APair();
 init_APragma();
 init_ADenotation();
 init_ASetReduce();
 init_ASeqMap();
 init_AControl();
 init_AStringConv();
 init_ASetMap();
 init_AArray();
 init_ALexem();
 init_ASeqReduce();
 DEN("  \"",__APErr_63);
 DEN("No valid infix",__APErr_31);
 DEN("\" ",__APErr_62);
 DEN("Only simple infix (no associatives) allowed",__APErr_30);
 LCLS(1,_APErr_61,__APErr_61);
 DEN("AS only in ( .. ) on left hand side",__APErr_29);
 DEN(" ",__APErr_60);
 DEN("Functionality expected",__APErr_28);
 DEN("Expected was `",__APErr_59);
 DEN("Name",__APErr_27);
 DEN("\' instead of `",__APErr_58);
 DEN("Rhs Hand Side",__APErr_26);
 DEN("Expected was ",__APErr_57);
 DEN("Left Hand Side",__APErr_25);
 DEN("`",__APErr_56);
 DEN("Structure name (origin)",__APErr_24);
 DEN("\'",__APErr_55);
 DEN("Structure names don\'t have an Origin and Functionality",__APErr_23);
 DEN("Internal Err: ",__APErr_54);
 DEN("Structure names don\'t have an Origin",__APErr_22);
 DEN("Structure Names don\'t have a Functionality",__APErr_21);
 CLS(2,_APErr_53,__APErr_53);
 DEN("Only Identifier allowed",__APErr_20);
 CLS(2,_APErr_19,__APErr_19);
 CLS(3,_APErr_18,__APErr_18);
 CLS(1,_APErr_50,__APErr_50);
 CLS(1,_APErr_17,__APErr_17);
 CLS(1,_APErr_15,__APErr_15);
 CLS(3,_APErr_47,__APErr_47);
 CLS(2,_APErr_14,__APErr_14);
 CLS(2,_APErr_46,__APErr_46);
 CLS(2,_APErr_13,__APErr_13);
 DEN("higher-order pattern constructor",__APErr_45);
 CLS(2,_APErr_12,__APErr_12);
 DEN("higher-order infix pattern constructor",__APErr_44);
 CLS(2,_APErr_11,__APErr_11);
 DEN("compound object: not allowed for operations (and local names)",__APErr_43);
 CLS(1,_APErr_10,__APErr_10);
 DEN("Application of two _ as arguments not allowed",__APErr_42);
 CLS(2,_APErr_9,__APErr_9);
 DEN("_ cannot be an operator",__APErr_41);
 CLS(2,_APErr_8,__APErr_8);
 DEN("Application of _ not allowed here",__APErr_40);
 CLS(3,_APErr_7,__APErr_7);
 DEN("Infix Operator",__APErr_39);
 CLS(1,_APErr_6,__APErr_6);
 DEN("Postfix Operator",__APErr_38);
 DEN("accepting `",__APErr_69);
 CLS(2,_APErr_5,__APErr_5);
 DEN("Operand",__APErr_37);
 DEN("\' as structure name (casefold!) ",__APErr_68);
 CLS(3,_APErr_4,__APErr_4);
 DEN("Operator",__APErr_36);
 DEN("\' as Structure Name ",__APErr_67);
 CLS(3,_APErr_3,__APErr_3);
 DEN("No local sorts allowed",__APErr_35);
 DEN("Missing ",__APErr_66);
 CLS(1,_APErr_2,__APErr_2);
 DEN("Local Name",__APErr_34);
 DEN("Found unexpected ",__APErr_65);
 CLS(2,_APErr_1,__APErr_1);
 DEN("Argument should be a tuple or function application",__APErr_33);
 DEN("\"",__APErr_64);
 DEN("Operator should be a Name",__APErr_32);
 MTH(1,0,3,_mt_1_0_3);LZYMTH(1,0,3,_mt_1_0_3);
 MTH(3,1,1,_mt_3_1_1);LZYMTH(3,1,1,_mt_3_1_1);
 COPY(__AOcPos_35,1);
 __APErr_16=__AOcPos_35;}

