

#include "BUILTIN.h"

#include "Denotation.h"
extern OBJ _ASeqConv_3(OBJ,OBJ,OBJ,OBJ,OBJ);extern OBJ __ASeqConv_3;

#include "Int.h"
extern OBJ __ATree_7;
extern OBJ _AName_11(OBJ);extern OBJ __AName_11;
extern OBJ _AName_12(OBJ);extern OBJ __AName_12;
extern OBJ _AName_31(OBJ,OBJ);extern OBJ __AName_31;
extern OBJ _AName_32(OBJ,OBJ);extern OBJ __AName_32;
extern OBJ _AOcPos_34(OBJ);extern OBJ __AOcPos_34;
extern OBJ __AOption_5;
extern OBJ __ASeq_6;
extern OBJ _ASeq_26(OBJ,OBJ);extern OBJ __ASeq_26;
extern OBJ _ASeq_52(OBJ,OBJ);extern OBJ __ASeq_52;

#include "Nat.h"

#include "Char.h"

#include "Bitset.h"

#include "Array.h"
extern OBJ _AGlobSig_2(OBJ,OBJ);OBJ __AGlobSig_2; /* closure */
extern OBJ _AGlobSig_3(OBJ);OBJ __AGlobSig_3; /* closure? */
extern OBJ _AGlobSig_4(OBJ);OBJ __AGlobSig_4; /* where */
extern OBJ _AGlobSig_5(OBJ);OBJ __AGlobSig_5; /* what */
extern OBJ _AGlobSig_6(OBJ,OBJ);OBJ __AGlobSig_6; /* direct */
extern OBJ _AGlobSig_7(OBJ);OBJ __AGlobSig_7; /* direct? */
extern OBJ _AGlobSig_8(OBJ);OBJ __AGlobSig_8; /* where,1 */
extern OBJ _AGlobSig_10(OBJ);OBJ __AGlobSig_10; /* assumed */
extern OBJ _AGlobSig_11(OBJ);OBJ __AGlobSig_11; /* assumed? */
OBJ __AGlobSig_13; /* none */
extern OBJ _AGlobSig_14(OBJ);OBJ __AGlobSig_14; /* none? */
OBJ __AGlobSig_16; /* both */
extern OBJ _AGlobSig_17(OBJ);OBJ __AGlobSig_17; /* both? */
OBJ __AGlobSig_18; /* right */
extern OBJ _AGlobSig_19(OBJ);OBJ __AGlobSig_19; /* right? */
OBJ __AGlobSig_20; /* left */
extern OBJ _AGlobSig_21(OBJ);OBJ __AGlobSig_21; /* left? */
extern OBJ _AGlobSig_23(OBJ,OBJ,OBJ);OBJ __AGlobSig_23; /* onlyTab */
extern OBJ _AGlobSig_24(OBJ);OBJ __AGlobSig_24; /* onlyTab? */
extern OBJ _AGlobSig_25(OBJ);OBJ __AGlobSig_25; /* tabOf */
extern OBJ _AGlobSig_26(OBJ);OBJ __AGlobSig_26; /* inst */
extern OBJ _AGlobSig_27(OBJ);OBJ __AGlobSig_27; /* struct */
extern OBJ _AGlobSig_29(OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AGlobSig_29; /* lookupE */
extern OBJ _AGlobSig_30(OBJ);OBJ __AGlobSig_30; /* lookupE? */
extern OBJ _AGlobSig_31(OBJ);OBJ __AGlobSig_31; /* opImpDeclS */
extern OBJ _AGlobSig_32(OBJ);OBJ __AGlobSig_32; /* sortImpDeclS */
extern OBJ _AGlobSig_33(OBJ);OBJ __AGlobSig_33; /* opDeclS */
extern OBJ _AGlobSig_34(OBJ);OBJ __AGlobSig_34; /* sortDeclS */
extern OBJ _AGlobSig_35(OBJ);OBJ __AGlobSig_35; /* struct,1 */
extern OBJ _AGlobSig_37(OBJ,OBJ,OBJ);OBJ __AGlobSig_37; /* mkFormParam */
extern OBJ _AGlobSig_38(OBJ);OBJ __AGlobSig_38; /* mkFormParam? */
extern OBJ _AGlobSig_39(OBJ);OBJ __AGlobSig_39; /* pragmaFp */
extern OBJ _AGlobSig_40(OBJ);OBJ __AGlobSig_40; /* fullFp */
extern OBJ _AGlobSig_41(OBJ);OBJ __AGlobSig_41; /* partialFp */
extern OBJ _AGlobSig_43(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AGlobSig_43; /* implGlobSig */
extern OBJ _AGlobSig_44(OBJ);OBJ __AGlobSig_44; /* implGlobSig? */
extern OBJ _AGlobSig_45(OBJ);OBJ __AGlobSig_45; /* prioTab */
extern OBJ _AGlobSig_46(OBJ);OBJ __AGlobSig_46; /* pragmas */
extern OBJ _AGlobSig_47(OBJ);OBJ __AGlobSig_47; /* laws */
extern OBJ _AGlobSig_48(OBJ);OBJ __AGlobSig_48; /* denotation */
extern OBJ _AGlobSig_49(OBJ);OBJ __AGlobSig_49; /* bool */
extern OBJ _AGlobSig_50(OBJ);OBJ __AGlobSig_50; /* impLaws */
extern OBJ _AGlobSig_51(OBJ);OBJ __AGlobSig_51; /* impPragmas */
extern OBJ _AGlobSig_52(OBJ);OBJ __AGlobSig_52; /* lookupTable */
extern OBJ _AGlobSig_53(OBJ);OBJ __AGlobSig_53; /* pragma */
extern OBJ _AGlobSig_54(OBJ);OBJ __AGlobSig_54; /* pos */
extern OBJ _AGlobSig_55(OBJ);OBJ __AGlobSig_55; /* structures */
extern OBJ _AGlobSig_56(OBJ);OBJ __AGlobSig_56; /* decls */
extern OBJ _AGlobSig_57(OBJ);OBJ __AGlobSig_57; /* formParams */
extern OBJ _AGlobSig_58(OBJ);OBJ __AGlobSig_58; /* structIde */
extern OBJ _AGlobSig_59(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ);OBJ __AGlobSig_59; /* sigGlobSig */
extern OBJ _AGlobSig_60(OBJ);OBJ __AGlobSig_60; /* sigGlobSig? */
extern OBJ _AGlobSig_62(OBJ);OBJ __AGlobSig_62; /* DENOTATION */
extern OBJ _AGlobSig_63(OBJ);OBJ __AGlobSig_63; /* BOOL */
extern OBJ _AGlobSig_64(OBJ);OBJ __AGlobSig_64; /* denotationR */
extern OBJ _AGlobSig_65(OBJ);OBJ __AGlobSig_65; /* boolR */
extern OBJ _AGlobSig_69(OBJ);OBJ __AGlobSig_69; /* onlyPartNames */
extern OBJ _AGlobSig_70(OBJ);OBJ __AGlobSig_70; /* instPartNames */
extern OBJ _AGlobSig_71(OBJ);OBJ __AGlobSig_71; /* sortPartNames */
OBJ __AGlobSig_78; /* errGlobSig */
extern OBJ _AGlobSig_79(OBJ);OBJ __AGlobSig_79; /* errGlobSig? */
extern OBJ _AGlobSig_80(OBJ,OBJ);OBJ __AGlobSig_80; /* updDecls */
extern OBJ _AGlobSig_81(OBJ,OBJ);OBJ __AGlobSig_81; /* updStructs */
extern OBJ _AGlobSig_82(OBJ,OBJ);OBJ __AGlobSig_82; /* updSortPNs */
extern OBJ _AGlobSig_83(OBJ,OBJ);OBJ __AGlobSig_83; /* updInstPNs */
extern OBJ _AGlobSig_84(OBJ,OBJ);OBJ __AGlobSig_84; /* updOnlyPNs */
extern OBJ _AGlobSig_85(OBJ,OBJ);OBJ __AGlobSig_85; /* updLookups */
extern OBJ _AGlobSig_86(OBJ,OBJ);OBJ __AGlobSig_86; /* updLaws */
extern OBJ _AGlobSig_87(OBJ,OBJ);OBJ __AGlobSig_87; /* updImpPragmas */
extern OBJ _AGlobSig_88(OBJ,OBJ);OBJ __AGlobSig_88; /* updImpLaws */
extern OBJ _AGlobSig_89(OBJ,OBJ);OBJ __AGlobSig_89; /* updPragmas */
extern OBJ _AGlobSig_90(OBJ,OBJ);OBJ __AGlobSig_90; /* updPrioTab */
extern OBJ _AGlobSig_91(OBJ);OBJ __AGlobSig_91; /* unIdentified */
extern OBJ _AGlobSig_92(OBJ);OBJ __AGlobSig_92; /* Identified */
extern OBJ _AGlobSig_93(OBJ);OBJ __AGlobSig_93; /* fPof */
extern OBJ _AGlobSig_94(OBJ);OBJ __AGlobSig_94; /* fPof,1 */
extern OBJ _AGlobSig_95(OBJ);OBJ __AGlobSig_95; /* unIdentified? */
extern OBJ _AGlobSig_96(OBJ);OBJ __AGlobSig_96; /* Identified? */
extern TUP2 _AGlobSig_97(OBJ);OBJ __AGlobSig_97; /* context */
extern OBJ _AGlobSig_98(OBJ);OBJ __AGlobSig_98; /* toStatic */
extern OBJ _AGlobSig_99(OBJ,OBJ);OBJ __AGlobSig_99; /* updOnlyTab */
extern OBJ _AGlobSig_100(OBJ);OBJ __AGlobSig_100; /* ` */
extern OBJ _AGlobSig_101(OBJ);OBJ __AGlobSig_101; /* `,1 */
extern OBJ _AGlobSig_102(OBJ,OBJ);OBJ __AGlobSig_102; /* ++ */
OBJ __AGlobSig_104; /* {-} */
extern OBJ _AGlobSig_105(OBJ);OBJ __AGlobSig_105; /* tab */
extern OBJ _AGlobSig_106(OBJ);OBJ __AGlobSig_106; /* pT */
extern OBJ _AGlobSig_107(OBJ,OBJ);OBJ __AGlobSig_107; /* <! */
extern OBJ _AGlobSig_108(OBJ,OBJ);OBJ __AGlobSig_108; /* <!> */
extern OBJ _AGlobSig_110(OBJ);OBJ __AGlobSig_110; /* pT? */
extern OBJ _AGlobSig_112(OBJ,OBJ);OBJ __AGlobSig_112; /* table */
extern OBJ _AGlobSig_113(OBJ);OBJ __AGlobSig_113; /* table? */
extern OBJ _AGlobSig_114(OBJ);OBJ __AGlobSig_114; /* posS */
OBJ __AGlobSig_115; /* `'115 */
OBJ __AGlobSig_116; /* `'116 */
OBJ __AGlobSig_117; /* `'117 */
OBJ __AGlobSig_118; /* `,1'118 */
OBJ __AGlobSig_119; /* `,1'119 */
OBJ __AGlobSig_120; /* `,1'120 */
OBJ __AGlobSig_121; /* `,1'121 */
OBJ __AGlobSig_122; /* `,1'122 */
OBJ __AGlobSig_123; /* `,1'123 */
extern OBJ _AGlobSig_124(OBJ);OBJ __AGlobSig_124; /* <!'124 */
extern OBJ _AGlobSig_125(OBJ);OBJ __AGlobSig_125; /* <!>'125 */

extern OBJ _AGlobSig_2(OBJ x1,OBJ x2) /* closure */
{OBJ r;
 COPY(x2,1);
 {OBJ x3;OBJ x4;
  x3=_ASeq_52(x2,__ANat_5);
  ANat_81(x3,__ANat_8,x4);
  if(ISTGPRM(x4,1)){
   PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
  }else{
   HLT("closure\'PrioTab: called with too short sequence of pos");}}
 return r;}

extern OBJ _AGlobSig_3(OBJ x1) /* closure? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x30=FLD(x1,2);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    COPY(x30,1);
    FRPRD(x1,1);}
   if(ISPRM(x30)){
    r=__ABUILTIN_3;
   }else{
    {OBJ x32=FLD1(x30,2);
     if(EXPRD(x30,1)){
      FREE(FLD1(x30,1),1);DSPRDF(x30);
     }else{
      COPY(x32,1);
      FRPRD(x30,1);}
     if(ISPRM(x32)){
      r=__ABUILTIN_3;
     }else{
      if(EXPRD(x32,1)){
       DSPRD(x32);
      }else{
       DCPRD(x32,1);}
      r=__ABUILTIN_5;}}}}
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_4(OBJ x1) /* where */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x30=FLD(x1,2);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    COPY(x30,1);
    FRPRD(x1,1);}
   if(ISPRM(x30)){
    HLT("where\'GlobSig:rule->seq[pos] only defined for closure");
   }else{
    {OBJ x32=FLD1(x30,2);
     COPY(x32,1);
     if(ISPRM(x32)){
      HLT("where\'GlobSig:rule->seq[pos] only defined for closure");
     }else{
      r=x30;
      if(EXPRD(x32,1)){
       DSPRD(x32);
      }else{
       DCPRD(x32,1);}}}}}
 }else{
  HLT("where\'GlobSig:rule->seq[pos] only defined for closure");}
 return r;}

extern OBJ _AGlobSig_5(OBJ x1) /* what */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection what\'GlobSig:rule->prio");
 }else{
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    DSPRD(x1);
   }else{
    r=x2;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_6(OBJ x1,OBJ x2) /* direct */
{OBJ r;
 {OBJ x3;
  PRD1(2,x3);FLD1(x3,1)=x2;FLD1(x3,2)=__ASeq_6;
  PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x3;}
 return r;}

extern OBJ _AGlobSig_7(OBJ x1) /* direct? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x30=FLD(x1,2);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    COPY(x30,1);
    FRPRD(x1,1);}
   if(ISPRM(x30)){
    r=__ABUILTIN_3;
   }else{
    {OBJ x32=FLD1(x30,2);
     if(EXPRD(x30,1)){
      FREE(FLD1(x30,1),1);DSPRDF(x30);
     }else{
      COPY(x32,1);
      FRPRD(x30,1);}
     if(ISPRM(x32)){
      r=__ABUILTIN_5;
     }else{
      if(EXPRD(x32,1)){
       DSPRD(x32);
      }else{
       DCPRD(x32,1);}
      r=__ABUILTIN_3;}}}}
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_8(OBJ x1) /* where,1 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x40=FLD(x1,2);
   if(EXPRD(x1,1)){
    DSPRDF(x1);
   }else{
    COPY(x40,1);
    FRPRD(x1,1);}
   if(ISPRM(x40)){
    HLT("where\'GlobSig:rule->pos only defined for direct");
   }else{
    {OBJ x41=FLD1(x40,1);OBJ x42=FLD1(x40,2);
     if(EXPRD(x40,1)){
      DSPRDF(x40);
     }else{
      COPY(x41,1);COPY(x42,1);
      FRPRD(x40,1);}
     if(ISPRM(x42)){
      r=x41;
     }else{
      HLT("where\'GlobSig:rule->pos only defined for direct");}}}}
 }else{
  HLT("where\'GlobSig:rule->pos only defined for direct");}
 return r;}

extern OBJ _AGlobSig_10(OBJ x1) /* assumed */
{OBJ r;
 PRDF(1,1,r);FLD(r,1)=x1;
 return r;}

extern OBJ _AGlobSig_11(OBJ x1) /* assumed? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_14(OBJ x1) /* none? */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_17(OBJ x1) /* both? */
{OBJ r;
 if(ISTGPRM(x1,2)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_19(OBJ x1) /* right? */
{OBJ r;
 if(ISTGPRM(x1,1)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_21(OBJ x1) /* left? */
{OBJ r;
 if(ISTGPRM(x1,0)){
  r=__ABUILTIN_5;
 }else{
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_23(OBJ x1,OBJ x2,OBJ x3) /* onlyTab */
{OBJ r;
 PRD1(3,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;
 return r;}

extern OBJ _AGlobSig_24(OBJ x1) /* onlyTab? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AGlobSig_25(OBJ x1) /* tabOf */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   DSPRDF(x1);
  }else{
   CPPRD(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_26(OBJ x1) /* inst */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FRPRD(FLD1(x1,3),1);DSPRDF(x1);
  }else{
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_27(OBJ x1) /* struct */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FRPRD(FLD1(x1,3),1);DSPRDF(x1);
  }else{
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_29(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5) /* lookupE */
{OBJ r;
 PRD1(5,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;FLD1(r,4)=x4;FLD1(r,5)=x5;
 return r;}

extern OBJ _AGlobSig_30(OBJ x1) /* lookupE? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AGlobSig_31(OBJ x1) /* opImpDeclS */
{OBJ r;
 {OBJ x6=FLD1(x1,5);
  if(EXPRD(x1,1)){
   r=x6;
   FLD1(x1,5)=NIL;DSPRD(x1);
  }else{
   COPY(x6,1);
   r=x6;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_32(OBJ x1) /* sortImpDeclS */
{OBJ r;
 {OBJ x5=FLD1(x1,4);
  if(EXPRD(x1,1)){
   r=x5;
   FLD1(x1,4)=NIL;DSPRD(x1);
  }else{
   COPY(x5,1);
   r=x5;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_33(OBJ x1) /* opDeclS */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   COPY(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_34(OBJ x1) /* sortDeclS */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   COPY(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_35(OBJ x1) /* struct,1 */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_37(OBJ x1,OBJ x2,OBJ x3) /* mkFormParam */
{OBJ r;
 PRD1(3,r);FLD1(r,1)=x1;FLD1(r,2)=x2;FLD1(r,3)=x3;
 return r;}

extern OBJ _AGlobSig_38(OBJ x1) /* mkFormParam? */
{OBJ r;
 FRPRD(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AGlobSig_39(OBJ x1) /* pragmaFp */
{OBJ r;
 {OBJ x4=FLD1(x1,3);
  if(EXPRD(x1,1)){
   r=x4;
   FLD1(x1,3)=NIL;DSPRD(x1);
  }else{
   COPY(x4,1);
   r=x4;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_40(OBJ x1) /* fullFp */
{OBJ r;
 {OBJ x3=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r=x3;
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   COPY(x3,1);
   r=x3;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_41(OBJ x1) /* partialFp */
{OBJ r;
 {OBJ x2=FLD1(x1,1);
  if(EXPRD(x1,1)){
   r=x2;
   FLD1(x1,1)=NIL;DSPRD(x1);
  }else{
   COPY(x2,1);
   r=x2;
   FRPRD(x1,1);}}
 return r;}

extern OBJ _AGlobSig_43(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7,OBJ x8,OBJ x9,OBJ x10,OBJ x11,OBJ x12,OBJ x13,OBJ x14) /* implGlobSig */
{OBJ r;
 PRD(14,2,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;FLD(r,5)=x5;FLD(r,6)=x6;FLD(r,7)=x7;FLD(r,8)=x8;FLD(r,9)=x9;FLD(r,10)=x10;FLD(r,11)=x11;FLD(r,12)=x12;FLD(r,13)=x13;FLD(r,14)=x14;
 return r;}

extern OBJ _AGlobSig_44(OBJ x1) /* implGlobSig? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_45(OBJ x1) /* prioTab */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x15=FLD(x1,14);
   if(EXPRD(x1,1)){
    r=x15;
    FLD(x1,14)=NIL;DSPRD(x1);
   }else{
    COPY(x15,1);
    r=x15;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection prioTab\'GlobSig:globSig->prioTab");}
 return r;}

extern OBJ _AGlobSig_46(OBJ x1) /* pragmas */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection pragmas\'GlobSig:globSig->seq");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x18=FLD(x1,17);
    if(EXPRD(x1,1)){
     r=x18;
     FLD(x1,17)=NIL;DSPRD(x1);
    }else{
     COPY(x18,1);
     r=x18;
     FRPRD(x1,1);}}
  }else{
   {OBJ x31=FLD(x1,13);
    if(EXPRD(x1,1)){
     r=x31;
     FLD(x1,13)=NIL;DSPRD(x1);
    }else{
     COPY(x31,1);
     r=x31;
     FRPRD(x1,1);}}}}
 return r;}

extern OBJ _AGlobSig_47(OBJ x1) /* laws */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x13=FLD(x1,12);
   if(EXPRD(x1,1)){
    r=x13;
    FLD(x1,12)=NIL;DSPRD(x1);
   }else{
    COPY(x13,1);
    r=x13;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection laws\'GlobSig:globSig->map");}
 return r;}

extern OBJ _AGlobSig_48(OBJ x1) /* denotation */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x12=FLD(x1,11);
   if(EXPRD(x1,1)){
    r=x12;
    FLD(x1,11)=NIL;DSPRD(x1);
   }else{
    COPY(x12,1);
    r=x12;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection denotation\'GlobSig:globSig->name");}
 return r;}

extern OBJ _AGlobSig_49(OBJ x1) /* bool */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x11=FLD(x1,10);
   if(EXPRD(x1,1)){
    r=x11;
    FLD(x1,10)=NIL;DSPRD(x1);
   }else{
    COPY(x11,1);
    r=x11;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection bool\'GlobSig:globSig->name");}
 return r;}

extern OBJ _AGlobSig_50(OBJ x1) /* impLaws */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection impLaws\'GlobSig:globSig->map");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x13=FLD(x1,12);
    if(EXPRD(x1,1)){
     r=x13;
     FLD(x1,12)=NIL;DSPRD(x1);
    }else{
     COPY(x13,1);
     r=x13;
     FRPRD(x1,1);}}
  }else{
   {OBJ x27=FLD(x1,9);
    if(EXPRD(x1,1)){
     r=x27;
     FLD(x1,9)=NIL;DSPRD(x1);
    }else{
     COPY(x27,1);
     r=x27;
     FRPRD(x1,1);}}}}
 return r;}

extern OBJ _AGlobSig_51(OBJ x1) /* impPragmas */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection impPragmas\'GlobSig:globSig->map");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x12=FLD(x1,11);
    if(EXPRD(x1,1)){
     r=x12;
     FLD(x1,11)=NIL;DSPRD(x1);
    }else{
     COPY(x12,1);
     r=x12;
     FRPRD(x1,1);}}
  }else{
   {OBJ x26=FLD(x1,8);
    if(EXPRD(x1,1)){
     r=x26;
     FLD(x1,8)=NIL;DSPRD(x1);
    }else{
     COPY(x26,1);
     r=x26;
     FRPRD(x1,1);}}}}
 return r;}

extern OBJ _AGlobSig_52(OBJ x1) /* lookupTable */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection lookupTable\'GlobSig:globSig->table");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x11=FLD(x1,10);
    if(EXPRD(x1,1)){
     r=x11;
     FLD(x1,10)=NIL;DSPRD(x1);
    }else{
     CPPRD(x11,1);
     r=x11;
     FRPRD(x1,1);}}
  }else{
   {OBJ x25=FLD(x1,7);
    if(EXPRD(x1,1)){
     r=x25;
     FLD(x1,7)=NIL;DSPRD(x1);
    }else{
     CPPRD(x25,1);
     r=x25;
     FRPRD(x1,1);}}}}
 return r;}

extern OBJ _AGlobSig_53(OBJ x1) /* pragma */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection pragma\'GlobSig:globSig->pragma");
 }else{
  {OBJ x7=FLD(x1,6);
   if(EXPRD(x1,1)){
    r=x7;
    FLD(x1,6)=NIL;DSPRD(x1);
   }else{
    COPY(x7,1);
    r=x7;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_54(OBJ x1) /* pos */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection pos\'GlobSig:globSig->pos");
 }else{
  {OBJ x6=FLD(x1,5);
   if(EXPRD(x1,1)){
    r=x6;
    FLD(x1,5)=NIL;DSPRD(x1);
   }else{
    COPY(x6,1);
    r=x6;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_55(OBJ x1) /* structures */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection structures\'GlobSig:globSig->table");
 }else{
  {OBJ x5=FLD(x1,4);
   if(EXPRD(x1,1)){
    r=x5;
    FLD(x1,4)=NIL;DSPRD(x1);
   }else{
    CPPRD(x5,1);
    r=x5;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_56(OBJ x1) /* decls */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection decls\'GlobSig:globSig->table");
 }else{
  {OBJ x4=FLD(x1,3);
   if(EXPRD(x1,1)){
    r=x4;
    FLD(x1,3)=NIL;DSPRD(x1);
   }else{
    CPPRD(x4,1);
    r=x4;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_57(OBJ x1) /* formParams */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection formParams\'GlobSig:globSig->seq");
 }else{
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    FLD(x1,2)=NIL;DSPRD(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_58(OBJ x1) /* structIde */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <unknown> : undefined selection structIde\'GlobSig:globSig->rep");
 }else{
  {OBJ x2=FLD(x1,1);
   if(EXPRD(x1,1)){
    r=x2;
    FLD(x1,1)=NIL;DSPRD(x1);
   }else{
    COPY(x2,1);
    r=x2;
    FRPRD(x1,1);}}}
 return r;}

extern OBJ _AGlobSig_59(OBJ x1,OBJ x2,OBJ x3,OBJ x4,OBJ x5,OBJ x6,OBJ x7,OBJ x8,OBJ x9,OBJ x10,OBJ x11,OBJ x12,OBJ x13,OBJ x14,OBJ x15,OBJ x16,OBJ x17) /* sigGlobSig */
{OBJ r;
 PRD(17,1,r);FLD(r,1)=x1;FLD(r,2)=x2;FLD(r,3)=x3;FLD(r,4)=x4;FLD(r,5)=x5;FLD(r,6)=x6;FLD(r,7)=x7;FLD(r,8)=x8;FLD(r,9)=x9;FLD(r,10)=x10;FLD(r,11)=x11;FLD(r,12)=x12;FLD(r,13)=x13;FLD(r,14)=x14;FLD(r,15)=x15;FLD(r,16)=x16;FLD(r,17)=x17;
 return r;}

extern OBJ _AGlobSig_60(OBJ x1) /* sigGlobSig? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_62(OBJ x1) /* DENOTATION */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x17=FLD(x1,16);
   if(EXPRD(x1,1)){
    r=x17;
    FLD(x1,16)=NIL;DSPRD(x1);
   }else{
    COPY(x17,1);
    r=x17;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection DENOTATION\'GlobSig:globSig->rep");}
 return r;}

extern OBJ _AGlobSig_63(OBJ x1) /* BOOL */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x16=FLD(x1,15);
   if(EXPRD(x1,1)){
    r=x16;
    FLD(x1,15)=NIL;DSPRD(x1);
   }else{
    COPY(x16,1);
    r=x16;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection BOOL\'GlobSig:globSig->rep");}
 return r;}

extern OBJ _AGlobSig_64(OBJ x1) /* denotationR */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x15=FLD(x1,14);
   if(EXPRD(x1,1)){
    r=x15;
    FLD(x1,14)=NIL;DSPRD(x1);
   }else{
    COPY(x15,1);
    r=x15;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection denotationR\'GlobSig:globSig->rep");}
 return r;}

extern OBJ _AGlobSig_65(OBJ x1) /* boolR */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x14=FLD(x1,13);
   if(EXPRD(x1,1)){
    r=x14;
    FLD(x1,13)=NIL;DSPRD(x1);
   }else{
    COPY(x14,1);
    r=x14;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection boolR\'GlobSig:globSig->rep");}
 return r;}

extern OBJ _AGlobSig_69(OBJ x1) /* onlyPartNames */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x10=FLD(x1,9);
   if(EXPRD(x1,1)){
    r=x10;
    FLD(x1,9)=NIL;DSPRD(x1);
   }else{
    CPPRD(x10,1);
    r=x10;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection onlyPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_70(OBJ x1) /* instPartNames */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x9=FLD(x1,8);
   if(EXPRD(x1,1)){
    r=x9;
    FLD(x1,8)=NIL;DSPRD(x1);
   }else{
    COPY(x9,1);
    r=x9;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection instPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_71(OBJ x1) /* sortPartNames */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x8=FLD(x1,7);
   if(EXPRD(x1,1)){
    r=x8;
    FLD(x1,7)=NIL;DSPRD(x1);
   }else{
    COPY(x8,1);
    r=x8;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection sortPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_79(OBJ x1) /* errGlobSig? */
{OBJ r;
 if(ISPRM(x1)){
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_80(OBJ x1,OBJ x2) /* updDecls */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <123,12-135,70> : missing else in updDecls\'GlobSig:globSig**table->globSig");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x843;OBJ x844;OBJ x846;OBJ x847;OBJ x848;OBJ x849;OBJ x850;OBJ x851;OBJ x852;OBJ x853;OBJ x854;OBJ x855;OBJ x856;OBJ x857;OBJ x858;OBJ x859;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FRPRD(FLD(r,3),1);FLD(r,3)=x2;
    }else{
     x843=FLD(x1,1);x844=FLD(x1,2);x846=FLD(x1,4);x847=FLD(x1,5);x848=FLD(x1,6);x849=FLD(x1,7);x850=FLD(x1,8);x851=FLD(x1,9);x852=FLD(x1,10);x853=FLD(x1,11);x854=FLD(x1,12);x855=FLD(x1,13);x856=FLD(x1,14);x857=FLD(x1,15);x858=FLD(x1,16);x859=FLD(x1,17);COPY(x843,1);COPY(x844,1);CPPRD(x846,1);COPY(x847,1);COPY(x848,1);COPY(x849,1);COPY(x850,1);CPPRD(x851,1);CPPRD(x852,1);COPY(x853,1);COPY(x854,1);COPY(x855,1);COPY(x856,1);COPY(x857,1);COPY(x858,1);COPY(x859,1);
     FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x843;FLD(r,2)=x844;FLD(r,3)=x2;FLD(r,4)=x846;FLD(r,5)=x847;FLD(r,6)=x848;FLD(r,7)=x849;FLD(r,8)=x850;FLD(r,9)=x851;FLD(r,10)=x852;FLD(r,11)=x853;FLD(r,12)=x854;FLD(r,13)=x855;FLD(r,14)=x856;FLD(r,15)=x857;FLD(r,16)=x858;FLD(r,17)=x859;}}
  }else{
   {OBJ x860;OBJ x861;OBJ x863;OBJ x864;OBJ x865;OBJ x866;OBJ x867;OBJ x868;OBJ x869;OBJ x870;OBJ x871;OBJ x872;OBJ x873;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FRPRD(FLD(r,3),1);FLD(r,3)=x2;
    }else{
     x860=FLD(x1,1);x861=FLD(x1,2);x863=FLD(x1,4);x864=FLD(x1,5);x865=FLD(x1,6);x866=FLD(x1,7);x867=FLD(x1,8);x868=FLD(x1,9);x869=FLD(x1,10);x870=FLD(x1,11);x871=FLD(x1,12);x872=FLD(x1,13);x873=FLD(x1,14);COPY(x860,1);COPY(x861,1);CPPRD(x863,1);COPY(x864,1);COPY(x865,1);CPPRD(x866,1);COPY(x867,1);COPY(x868,1);COPY(x869,1);COPY(x870,1);COPY(x871,1);COPY(x872,1);COPY(x873,1);
     FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x860;FLD(r,2)=x861;FLD(r,3)=x2;FLD(r,4)=x863;FLD(r,5)=x864;FLD(r,6)=x865;FLD(r,7)=x866;FLD(r,8)=x867;FLD(r,9)=x868;FLD(r,10)=x869;FLD(r,11)=x870;FLD(r,12)=x871;FLD(r,13)=x872;FLD(r,14)=x873;}}}}
 return r;}

extern OBJ _AGlobSig_81(OBJ x1,OBJ x2) /* updStructs */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <139,12-151,70> : missing else in updStructs\'GlobSig:globSig**table->globSig");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x843;OBJ x844;OBJ x845;OBJ x847;OBJ x848;OBJ x849;OBJ x850;OBJ x851;OBJ x852;OBJ x853;OBJ x854;OBJ x855;OBJ x856;OBJ x857;OBJ x858;OBJ x859;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FRPRD(FLD(r,4),1);FLD(r,4)=x2;
    }else{
     x843=FLD(x1,1);x844=FLD(x1,2);x845=FLD(x1,3);x847=FLD(x1,5);x848=FLD(x1,6);x849=FLD(x1,7);x850=FLD(x1,8);x851=FLD(x1,9);x852=FLD(x1,10);x853=FLD(x1,11);x854=FLD(x1,12);x855=FLD(x1,13);x856=FLD(x1,14);x857=FLD(x1,15);x858=FLD(x1,16);x859=FLD(x1,17);COPY(x843,1);COPY(x844,1);CPPRD(x845,1);COPY(x847,1);COPY(x848,1);COPY(x849,1);COPY(x850,1);CPPRD(x851,1);CPPRD(x852,1);COPY(x853,1);COPY(x854,1);COPY(x855,1);COPY(x856,1);COPY(x857,1);COPY(x858,1);COPY(x859,1);
     FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x843;FLD(r,2)=x844;FLD(r,3)=x845;FLD(r,4)=x2;FLD(r,5)=x847;FLD(r,6)=x848;FLD(r,7)=x849;FLD(r,8)=x850;FLD(r,9)=x851;FLD(r,10)=x852;FLD(r,11)=x853;FLD(r,12)=x854;FLD(r,13)=x855;FLD(r,14)=x856;FLD(r,15)=x857;FLD(r,16)=x858;FLD(r,17)=x859;}}
  }else{
   {OBJ x860;OBJ x861;OBJ x862;OBJ x864;OBJ x865;OBJ x866;OBJ x867;OBJ x868;OBJ x869;OBJ x870;OBJ x871;OBJ x872;OBJ x873;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FRPRD(FLD(r,4),1);FLD(r,4)=x2;
    }else{
     x860=FLD(x1,1);x861=FLD(x1,2);x862=FLD(x1,3);x864=FLD(x1,5);x865=FLD(x1,6);x866=FLD(x1,7);x867=FLD(x1,8);x868=FLD(x1,9);x869=FLD(x1,10);x870=FLD(x1,11);x871=FLD(x1,12);x872=FLD(x1,13);x873=FLD(x1,14);COPY(x860,1);COPY(x861,1);CPPRD(x862,1);COPY(x864,1);COPY(x865,1);CPPRD(x866,1);COPY(x867,1);COPY(x868,1);COPY(x869,1);COPY(x870,1);COPY(x871,1);COPY(x872,1);COPY(x873,1);
     FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x860;FLD(r,2)=x861;FLD(r,3)=x862;FLD(r,4)=x2;FLD(r,5)=x864;FLD(r,6)=x865;FLD(r,7)=x866;FLD(r,8)=x867;FLD(r,9)=x868;FLD(r,10)=x869;FLD(r,11)=x870;FLD(r,12)=x871;FLD(r,13)=x872;FLD(r,14)=x873;}}}}
 return r;}

extern OBJ _AGlobSig_82(OBJ x1,OBJ x2) /* updSortPNs */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x431;OBJ x432;OBJ x433;OBJ x434;OBJ x435;OBJ x436;OBJ x438;OBJ x439;OBJ x440;OBJ x441;OBJ x442;OBJ x443;OBJ x444;OBJ x445;OBJ x446;OBJ x447;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FREE(FLD(r,7),1);FLD(r,7)=x2;
   }else{
    x431=FLD(x1,1);x432=FLD(x1,2);x433=FLD(x1,3);x434=FLD(x1,4);x435=FLD(x1,5);x436=FLD(x1,6);x438=FLD(x1,8);x439=FLD(x1,9);x440=FLD(x1,10);x441=FLD(x1,11);x442=FLD(x1,12);x443=FLD(x1,13);x444=FLD(x1,14);x445=FLD(x1,15);x446=FLD(x1,16);x447=FLD(x1,17);COPY(x431,1);COPY(x432,1);CPPRD(x433,1);CPPRD(x434,1);COPY(x435,1);COPY(x436,1);COPY(x438,1);CPPRD(x439,1);CPPRD(x440,1);COPY(x441,1);COPY(x442,1);COPY(x443,1);COPY(x444,1);COPY(x445,1);COPY(x446,1);COPY(x447,1);
    FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x431;FLD(r,2)=x432;FLD(r,3)=x433;FLD(r,4)=x434;FLD(r,5)=x435;FLD(r,6)=x436;FLD(r,7)=x2;FLD(r,8)=x438;FLD(r,9)=x439;FLD(r,10)=x440;FLD(r,11)=x441;FLD(r,12)=x442;FLD(r,13)=x443;FLD(r,14)=x444;FLD(r,15)=x445;FLD(r,16)=x446;FLD(r,17)=x447;}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection instPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_83(OBJ x1,OBJ x2) /* updInstPNs */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x431;OBJ x432;OBJ x433;OBJ x434;OBJ x435;OBJ x436;OBJ x437;OBJ x439;OBJ x440;OBJ x441;OBJ x442;OBJ x443;OBJ x444;OBJ x445;OBJ x446;OBJ x447;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FREE(FLD(r,8),1);FLD(r,8)=x2;
   }else{
    x431=FLD(x1,1);x432=FLD(x1,2);x433=FLD(x1,3);x434=FLD(x1,4);x435=FLD(x1,5);x436=FLD(x1,6);x437=FLD(x1,7);x439=FLD(x1,9);x440=FLD(x1,10);x441=FLD(x1,11);x442=FLD(x1,12);x443=FLD(x1,13);x444=FLD(x1,14);x445=FLD(x1,15);x446=FLD(x1,16);x447=FLD(x1,17);COPY(x431,1);COPY(x432,1);CPPRD(x433,1);CPPRD(x434,1);COPY(x435,1);COPY(x436,1);COPY(x437,1);CPPRD(x439,1);CPPRD(x440,1);COPY(x441,1);COPY(x442,1);COPY(x443,1);COPY(x444,1);COPY(x445,1);COPY(x446,1);COPY(x447,1);
    FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x431;FLD(r,2)=x432;FLD(r,3)=x433;FLD(r,4)=x434;FLD(r,5)=x435;FLD(r,6)=x436;FLD(r,7)=x437;FLD(r,8)=x2;FLD(r,9)=x439;FLD(r,10)=x440;FLD(r,11)=x441;FLD(r,12)=x442;FLD(r,13)=x443;FLD(r,14)=x444;FLD(r,15)=x445;FLD(r,16)=x446;FLD(r,17)=x447;}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection sortPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_84(OBJ x1,OBJ x2) /* updOnlyPNs */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x431;OBJ x432;OBJ x433;OBJ x434;OBJ x435;OBJ x436;OBJ x437;OBJ x438;OBJ x440;OBJ x441;OBJ x442;OBJ x443;OBJ x444;OBJ x445;OBJ x446;OBJ x447;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FRPRD(FLD(r,9),1);FLD(r,9)=x2;
   }else{
    x431=FLD(x1,1);x432=FLD(x1,2);x433=FLD(x1,3);x434=FLD(x1,4);x435=FLD(x1,5);x436=FLD(x1,6);x437=FLD(x1,7);x438=FLD(x1,8);x440=FLD(x1,10);x441=FLD(x1,11);x442=FLD(x1,12);x443=FLD(x1,13);x444=FLD(x1,14);x445=FLD(x1,15);x446=FLD(x1,16);x447=FLD(x1,17);COPY(x431,1);COPY(x432,1);CPPRD(x433,1);CPPRD(x434,1);COPY(x435,1);COPY(x436,1);COPY(x437,1);COPY(x438,1);CPPRD(x440,1);COPY(x441,1);COPY(x442,1);COPY(x443,1);COPY(x444,1);COPY(x445,1);COPY(x446,1);COPY(x447,1);
    FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x431;FLD(r,2)=x432;FLD(r,3)=x433;FLD(r,4)=x434;FLD(r,5)=x435;FLD(r,6)=x436;FLD(r,7)=x437;FLD(r,8)=x438;FLD(r,9)=x2;FLD(r,10)=x440;FLD(r,11)=x441;FLD(r,12)=x442;FLD(r,13)=x443;FLD(r,14)=x444;FLD(r,15)=x445;FLD(r,16)=x446;FLD(r,17)=x447;}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection sortPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_85(OBJ x1,OBJ x2) /* updLookups */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,1))){
  {OBJ x417;OBJ x418;OBJ x419;OBJ x420;OBJ x421;OBJ x422;OBJ x423;OBJ x424;OBJ x425;OBJ x427;OBJ x428;OBJ x429;OBJ x430;OBJ x431;OBJ x432;OBJ x433;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FRPRD(FLD(r,10),1);FLD(r,10)=x2;
   }else{
    x417=FLD(x1,1);x418=FLD(x1,2);x419=FLD(x1,3);x420=FLD(x1,4);x421=FLD(x1,5);x422=FLD(x1,6);x423=FLD(x1,7);x424=FLD(x1,8);x425=FLD(x1,9);x427=FLD(x1,11);x428=FLD(x1,12);x429=FLD(x1,13);x430=FLD(x1,14);x431=FLD(x1,15);x432=FLD(x1,16);x433=FLD(x1,17);COPY(x417,1);COPY(x418,1);CPPRD(x419,1);CPPRD(x420,1);COPY(x421,1);COPY(x422,1);COPY(x423,1);COPY(x424,1);CPPRD(x425,1);COPY(x427,1);COPY(x428,1);COPY(x429,1);COPY(x430,1);COPY(x431,1);COPY(x432,1);COPY(x433,1);
    FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x417;FLD(r,2)=x418;FLD(r,3)=x419;FLD(r,4)=x420;FLD(r,5)=x421;FLD(r,6)=x422;FLD(r,7)=x423;FLD(r,8)=x424;FLD(r,9)=x425;FLD(r,10)=x2;FLD(r,11)=x427;FLD(r,12)=x428;FLD(r,13)=x429;FLD(r,14)=x430;FLD(r,15)=x431;FLD(r,16)=x432;FLD(r,17)=x433;}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection sortPartNames\'GlobSig:globSig->table");}
 return r;}

extern OBJ _AGlobSig_86(OBJ x1,OBJ x2) /* updLaws */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x368;OBJ x369;OBJ x370;OBJ x371;OBJ x372;OBJ x373;OBJ x374;OBJ x375;OBJ x376;OBJ x377;OBJ x378;OBJ x380;OBJ x381;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FREE(FLD(r,12),1);FLD(r,12)=x2;
   }else{
    x368=FLD(x1,1);x369=FLD(x1,2);x370=FLD(x1,3);x371=FLD(x1,4);x372=FLD(x1,5);x373=FLD(x1,6);x374=FLD(x1,7);x375=FLD(x1,8);x376=FLD(x1,9);x377=FLD(x1,10);x378=FLD(x1,11);x380=FLD(x1,13);x381=FLD(x1,14);COPY(x368,1);COPY(x369,1);CPPRD(x370,1);CPPRD(x371,1);COPY(x372,1);COPY(x373,1);CPPRD(x374,1);COPY(x375,1);COPY(x376,1);COPY(x377,1);COPY(x378,1);COPY(x380,1);COPY(x381,1);
    FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x368;FLD(r,2)=x369;FLD(r,3)=x370;FLD(r,4)=x371;FLD(r,5)=x372;FLD(r,6)=x373;FLD(r,7)=x374;FLD(r,8)=x375;FLD(r,9)=x376;FLD(r,10)=x377;FLD(r,11)=x378;FLD(r,12)=x2;FLD(r,13)=x380;FLD(r,14)=x381;}}
 }else{
  HLT("GlobSig at <unknown> : undefined selection bool\'GlobSig:globSig->name");}
 return r;}

extern OBJ _AGlobSig_87(OBJ x1,OBJ x2) /* updImpPragmas */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <193,12-205,75> : missing else in updImpPragmas\'GlobSig:globSig**map->globSig");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x843;OBJ x844;OBJ x845;OBJ x846;OBJ x847;OBJ x848;OBJ x849;OBJ x850;OBJ x851;OBJ x852;OBJ x854;OBJ x855;OBJ x856;OBJ x857;OBJ x858;OBJ x859;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,11),1);FLD(r,11)=x2;
    }else{
     x843=FLD(x1,1);x844=FLD(x1,2);x845=FLD(x1,3);x846=FLD(x1,4);x847=FLD(x1,5);x848=FLD(x1,6);x849=FLD(x1,7);x850=FLD(x1,8);x851=FLD(x1,9);x852=FLD(x1,10);x854=FLD(x1,12);x855=FLD(x1,13);x856=FLD(x1,14);x857=FLD(x1,15);x858=FLD(x1,16);x859=FLD(x1,17);COPY(x843,1);COPY(x844,1);CPPRD(x845,1);CPPRD(x846,1);COPY(x847,1);COPY(x848,1);COPY(x849,1);COPY(x850,1);CPPRD(x851,1);CPPRD(x852,1);COPY(x854,1);COPY(x855,1);COPY(x856,1);COPY(x857,1);COPY(x858,1);COPY(x859,1);
     FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x843;FLD(r,2)=x844;FLD(r,3)=x845;FLD(r,4)=x846;FLD(r,5)=x847;FLD(r,6)=x848;FLD(r,7)=x849;FLD(r,8)=x850;FLD(r,9)=x851;FLD(r,10)=x852;FLD(r,11)=x2;FLD(r,12)=x854;FLD(r,13)=x855;FLD(r,14)=x856;FLD(r,15)=x857;FLD(r,16)=x858;FLD(r,17)=x859;}}
  }else{
   {OBJ x860;OBJ x861;OBJ x862;OBJ x863;OBJ x864;OBJ x865;OBJ x866;OBJ x868;OBJ x869;OBJ x870;OBJ x871;OBJ x872;OBJ x873;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,8),1);FLD(r,8)=x2;
    }else{
     x860=FLD(x1,1);x861=FLD(x1,2);x862=FLD(x1,3);x863=FLD(x1,4);x864=FLD(x1,5);x865=FLD(x1,6);x866=FLD(x1,7);x868=FLD(x1,9);x869=FLD(x1,10);x870=FLD(x1,11);x871=FLD(x1,12);x872=FLD(x1,13);x873=FLD(x1,14);COPY(x860,1);COPY(x861,1);CPPRD(x862,1);CPPRD(x863,1);COPY(x864,1);COPY(x865,1);CPPRD(x866,1);COPY(x868,1);COPY(x869,1);COPY(x870,1);COPY(x871,1);COPY(x872,1);COPY(x873,1);
     FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x860;FLD(r,2)=x861;FLD(r,3)=x862;FLD(r,4)=x863;FLD(r,5)=x864;FLD(r,6)=x865;FLD(r,7)=x866;FLD(r,8)=x2;FLD(r,9)=x868;FLD(r,10)=x869;FLD(r,11)=x870;FLD(r,12)=x871;FLD(r,13)=x872;FLD(r,14)=x873;}}}}
 return r;}

extern OBJ _AGlobSig_88(OBJ x1,OBJ x2) /* updImpLaws */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <209,12-221,75> : missing else in updImpLaws\'GlobSig:globSig**map->globSig");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x843;OBJ x844;OBJ x845;OBJ x846;OBJ x847;OBJ x848;OBJ x849;OBJ x850;OBJ x851;OBJ x852;OBJ x853;OBJ x855;OBJ x856;OBJ x857;OBJ x858;OBJ x859;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,12),1);FLD(r,12)=x2;
    }else{
     x843=FLD(x1,1);x844=FLD(x1,2);x845=FLD(x1,3);x846=FLD(x1,4);x847=FLD(x1,5);x848=FLD(x1,6);x849=FLD(x1,7);x850=FLD(x1,8);x851=FLD(x1,9);x852=FLD(x1,10);x853=FLD(x1,11);x855=FLD(x1,13);x856=FLD(x1,14);x857=FLD(x1,15);x858=FLD(x1,16);x859=FLD(x1,17);COPY(x843,1);COPY(x844,1);CPPRD(x845,1);CPPRD(x846,1);COPY(x847,1);COPY(x848,1);COPY(x849,1);COPY(x850,1);CPPRD(x851,1);CPPRD(x852,1);COPY(x853,1);COPY(x855,1);COPY(x856,1);COPY(x857,1);COPY(x858,1);COPY(x859,1);
     FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x843;FLD(r,2)=x844;FLD(r,3)=x845;FLD(r,4)=x846;FLD(r,5)=x847;FLD(r,6)=x848;FLD(r,7)=x849;FLD(r,8)=x850;FLD(r,9)=x851;FLD(r,10)=x852;FLD(r,11)=x853;FLD(r,12)=x2;FLD(r,13)=x855;FLD(r,14)=x856;FLD(r,15)=x857;FLD(r,16)=x858;FLD(r,17)=x859;}}
  }else{
   {OBJ x860;OBJ x861;OBJ x862;OBJ x863;OBJ x864;OBJ x865;OBJ x866;OBJ x867;OBJ x869;OBJ x870;OBJ x871;OBJ x872;OBJ x873;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,9),1);FLD(r,9)=x2;
    }else{
     x860=FLD(x1,1);x861=FLD(x1,2);x862=FLD(x1,3);x863=FLD(x1,4);x864=FLD(x1,5);x865=FLD(x1,6);x866=FLD(x1,7);x867=FLD(x1,8);x869=FLD(x1,10);x870=FLD(x1,11);x871=FLD(x1,12);x872=FLD(x1,13);x873=FLD(x1,14);COPY(x860,1);COPY(x861,1);CPPRD(x862,1);CPPRD(x863,1);COPY(x864,1);COPY(x865,1);CPPRD(x866,1);COPY(x867,1);COPY(x869,1);COPY(x870,1);COPY(x871,1);COPY(x872,1);COPY(x873,1);
     FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x860;FLD(r,2)=x861;FLD(r,3)=x862;FLD(r,4)=x863;FLD(r,5)=x864;FLD(r,6)=x865;FLD(r,7)=x866;FLD(r,8)=x867;FLD(r,9)=x2;FLD(r,10)=x869;FLD(r,11)=x870;FLD(r,12)=x871;FLD(r,13)=x872;FLD(r,14)=x873;}}}}
 return r;}

extern OBJ _AGlobSig_89(OBJ x1,OBJ x2) /* updPragmas */
{OBJ r;
 if(ISPRM(x1)){
  HLT("GlobSig at <225,12-236,75> : missing else in updPragmas\'GlobSig:globSig**seq->globSig");
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x843;OBJ x844;OBJ x845;OBJ x846;OBJ x847;OBJ x848;OBJ x849;OBJ x850;OBJ x851;OBJ x852;OBJ x853;OBJ x854;OBJ x855;OBJ x856;OBJ x857;OBJ x858;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,17),1);FLD(r,17)=x2;
    }else{
     x843=FLD(x1,1);x844=FLD(x1,2);x845=FLD(x1,3);x846=FLD(x1,4);x847=FLD(x1,5);x848=FLD(x1,6);x849=FLD(x1,7);x850=FLD(x1,8);x851=FLD(x1,9);x852=FLD(x1,10);x853=FLD(x1,11);x854=FLD(x1,12);x855=FLD(x1,13);x856=FLD(x1,14);x857=FLD(x1,15);x858=FLD(x1,16);COPY(x843,1);COPY(x844,1);CPPRD(x845,1);CPPRD(x846,1);COPY(x847,1);COPY(x848,1);COPY(x849,1);COPY(x850,1);CPPRD(x851,1);CPPRD(x852,1);COPY(x853,1);COPY(x854,1);COPY(x855,1);COPY(x856,1);COPY(x857,1);COPY(x858,1);
     FRPRD(x1,1);PRD(17,1,r);FLD(r,1)=x843;FLD(r,2)=x844;FLD(r,3)=x845;FLD(r,4)=x846;FLD(r,5)=x847;FLD(r,6)=x848;FLD(r,7)=x849;FLD(r,8)=x850;FLD(r,9)=x851;FLD(r,10)=x852;FLD(r,11)=x853;FLD(r,12)=x854;FLD(r,13)=x855;FLD(r,14)=x856;FLD(r,15)=x857;FLD(r,16)=x858;FLD(r,17)=x2;}}
  }else{
   {OBJ x860;OBJ x861;OBJ x862;OBJ x863;OBJ x864;OBJ x865;OBJ x866;OBJ x867;OBJ x868;OBJ x869;OBJ x870;OBJ x871;OBJ x873;
    if(EXPRD(x1,1)){
     RPRD(x1,r);FREE(FLD(r,13),1);FLD(r,13)=x2;
    }else{
     x860=FLD(x1,1);x861=FLD(x1,2);x862=FLD(x1,3);x863=FLD(x1,4);x864=FLD(x1,5);x865=FLD(x1,6);x866=FLD(x1,7);x867=FLD(x1,8);x868=FLD(x1,9);x869=FLD(x1,10);x870=FLD(x1,11);x871=FLD(x1,12);x873=FLD(x1,14);COPY(x860,1);COPY(x861,1);CPPRD(x862,1);CPPRD(x863,1);COPY(x864,1);COPY(x865,1);CPPRD(x866,1);COPY(x867,1);COPY(x868,1);COPY(x869,1);COPY(x870,1);COPY(x871,1);COPY(x873,1);
     FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x860;FLD(r,2)=x861;FLD(r,3)=x862;FLD(r,4)=x863;FLD(r,5)=x864;FLD(r,6)=x865;FLD(r,7)=x866;FLD(r,8)=x867;FLD(r,9)=x868;FLD(r,10)=x869;FLD(r,11)=x870;FLD(r,12)=x871;FLD(r,13)=x2;FLD(r,14)=x873;}}}}
 return r;}

extern OBJ _AGlobSig_90(OBJ x1,OBJ x2) /* updPrioTab */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x397;OBJ x398;OBJ x399;OBJ x400;OBJ x401;OBJ x402;OBJ x403;OBJ x404;OBJ x405;OBJ x406;OBJ x407;OBJ x408;OBJ x409;
   if(EXPRD(x1,1)){
    RPRD(x1,r);FREE(FLD(r,14),1);FLD(r,14)=x2;
   }else{
    x397=FLD(x1,1);x398=FLD(x1,2);x399=FLD(x1,3);x400=FLD(x1,4);x401=FLD(x1,5);x402=FLD(x1,6);x403=FLD(x1,7);x404=FLD(x1,8);x405=FLD(x1,9);x406=FLD(x1,10);x407=FLD(x1,11);x408=FLD(x1,12);x409=FLD(x1,13);COPY(x397,1);COPY(x398,1);CPPRD(x399,1);CPPRD(x400,1);COPY(x401,1);COPY(x402,1);CPPRD(x403,1);COPY(x404,1);COPY(x405,1);COPY(x406,1);COPY(x407,1);COPY(x408,1);COPY(x409,1);
    FRPRD(x1,1);PRD(14,2,r);FLD(r,1)=x397;FLD(r,2)=x398;FLD(r,3)=x399;FLD(r,4)=x400;FLD(r,5)=x401;FLD(r,6)=x402;FLD(r,7)=x403;FLD(r,8)=x404;FLD(r,9)=x405;FLD(r,10)=x406;FLD(r,11)=x407;FLD(r,12)=x408;FLD(r,13)=x409;FLD(r,14)=x2;}}
 }else{
  HLT("GlobSig at <240,12-244,75> : missing else in updPrioTab\'GlobSig:globSig**prioTab->globSig");}
 return r;}

extern OBJ _AGlobSig_91(OBJ x1) /* unIdentified */
{OBJ r;
 {OBJ x9=FLD1(x1,1);OBJ x10=FLD1(x1,2);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   COPY(x9,1);COPY(x10,1);
   FRPRD(x1,1);}
  {OBJ x11;
   PRD1(1,x11);FLD1(x11,1)=x9;
   PRD1(3,r);FLD1(r,1)=x11;FLD1(r,2)=__AOption_5;FLD1(r,3)=x10;}}
 return r;}

extern OBJ _AGlobSig_92(OBJ x1) /* Identified */
{OBJ r;
 {OBJ x9=FLD1(x1,1);OBJ x10=FLD1(x1,2);
  if(EXPRD(x1,1)){
   DSPRDF(x1);
  }else{
   COPY(x10,1);
   FRPRD(x1,1);}
  {OBJ x11;
   PRD1F(1,x11);FLD1(x11,1)=x9;
   PRD1(3,r);FLD1(r,1)=__AOption_5;FLD1(r,2)=x11;FLD1(r,3)=x10;}}
 return r;}

extern OBJ _AGlobSig_93(OBJ x1) /* fPof */
{OBJ r;
 {OBJ x19=FLD1(x1,1);OBJ x21=FLD1(x1,3);
  if(EXPRD(x1,1)){
   FREE(FLD1(x1,2),1);DSPRDF(x1);
  }else{
   COPY(x19,1);COPY(x21,1);
   FRPRD(x1,1);}
  if(ISPRM(x19)){
   HLT("GlobSig at <unknown> : missing else in fPof\'GlobSig:formParam->pair");
  }else{
   {OBJ x22=FLD1(x19,1);
    if(EXPRD(x19,1)){
     DSPRDF(x19);
    }else{
     COPY(x22,1);
     FRPRD(x19,1);}
    PRD1(2,r);FLD1(r,1)=x22;FLD1(r,2)=x21;}}}
 return r;}

extern OBJ _AGlobSig_94(OBJ x1) /* fPof,1 */
{OBJ r;
 {OBJ x20=FLD1(x1,2);OBJ x21=FLD1(x1,3);
  if(EXPRD(x1,1)){
   FREE(FLD1(x1,1),1);DSPRDF(x1);
  }else{
   COPY(x20,1);COPY(x21,1);
   FRPRD(x1,1);}
  if(ISPRM(x20)){
   HLT("GlobSig at <unknown> : missing else in fPof\'GlobSig:formParam->pair");
  }else{
   {OBJ x22=FLD1(x20,1);
    if(EXPRD(x20,1)){
     DSPRDF(x20);
    }else{
     FRPRD(x20,1);}
    PRD1(2,r);FLD1(r,1)=x22;FLD1(r,2)=x21;}}}
 return r;}

extern OBJ _AGlobSig_95(OBJ x1) /* unIdentified? */
{OBJ r;
 {OBJ x17=FLD1(x1,1);OBJ x18=FLD1(x1,2);
  if(EXPRD(x1,1)){
   FREE(FLD1(x1,3),1);DSPRDF(x1);
  }else{
   COPY(x17,1);COPY(x18,1);
   FRPRD(x1,1);}
  if(ISPRM(x17)){
   FREE(x18,1);
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x17,1)){
    FREE(FLD1(x17,1),1);DSPRDF(x17);
   }else{
    DCPRD(x17,1);}
   if(ISPRM(x18)){
    r=__ABUILTIN_5;
   }else{
    if(EXPRD(x18,1)){
     DSPRDF(x18);
    }else{
     DCPRD(x18,1);}
    r=__ABUILTIN_3;}}}
 return r;}

extern OBJ _AGlobSig_96(OBJ x1) /* Identified? */
{OBJ r;
 {OBJ x10=FLD1(x1,2);
  if(EXPRD(x1,1)){
   FLD1(x1,2)=NIL;DSPRD(x1);
  }else{
   COPY(x10,1);
   FRPRD(x1,1);}
  if(ISPRM(x10)){
   r=__ABUILTIN_3;
  }else{
   if(EXPRD(x10,1)){
    DSPRDF(x10);
   }else{
    DCPRD(x10,1);}
   r=__ABUILTIN_5;}}
 return r;}

extern TUP2 _AGlobSig_97(OBJ x1) /* context */
{TUP2 r;
 {OBJ x10=FLD1(x1,1);OBJ x11=FLD1(x1,2);
  if(EXPRD(x1,1)){
   r.c1=x10;r.c2=x11;
   FRPRD(FLD1(x1,3),1);DSPRDF(x1);
  }else{
   r.c1=x10;r.c2=x11;
   FRPRD(x1,1);}}
 return r;}
extern OBJ _AGlobSig_97_c(OBJ x1) /* context */
{OBJ r;
 {TUP2 t=_AGlobSig_97(x1);
  PRD1(2,r);
  FLD1(r,1)=t.c1;
  FLD1(r,2)=t.c2;}
 return r;}

extern OBJ _AGlobSig_98(OBJ x1) /* toStatic */
{OBJ r;
 {OBJ x24;OBJ x25;OBJ x26;
  if(EXPRD(x1,1)){
   RSOME(x1,r);
  }else{
   x24=FLD1(x1,1);x25=FLD1(x1,2);x26=FLD1(x1,3);CPPRD(x26,1);
   FRPRD(x1,1);PRD1(3,r);FLD1(r,1)=x24;FLD1(r,2)=x25;FLD1(r,3)=x26;}}
 return r;}

extern OBJ _AGlobSig_99(OBJ x1,OBJ x2) /* updOnlyTab */
{OBJ r;
 {OBJ x16;OBJ x17;
  if(EXPRD(x1,1)){
   RSOME(x1,r);FRPRD(FLD1(r,3),1);FLD1(r,3)=x2;
  }else{
   x16=FLD1(x1,1);x17=FLD1(x1,2);
   FRPRD(x1,1);PRD1(3,r);FLD1(r,1)=x16;FLD1(r,2)=x17;FLD1(r,3)=x2;}}
 return r;}

extern OBJ _AGlobSig_100(OBJ x1) /* ` */
{OBJ r;
 switch(TGPRM(x1)){
  case 2:
   CPPRD(__AGlobSig_116,1);
   r=__AGlobSig_116;break;
  case 0:
   CPPRD(__AGlobSig_117,1);
   r=__AGlobSig_117;break;
  default: 
   CPPRD(__AGlobSig_115,1);
   r=__AGlobSig_115;}
 return r;}

extern OBJ _AGlobSig_101(OBJ x1) /* `,1 */
{OBJ r;
 if(ISPRM(x1)){
  CPPRD(__AGlobSig_118,1);
  r=__AGlobSig_118;
 }else{
  if(ISTGPRD(x1,1)){
   {OBJ x42=FLD(x1,1);
    if(EXPRD(x1,1)){
     DSPRDF(x1);
    }else{
     FRPRD(x1,1);}
    {OBJ x43;OBJ x44;
     switch(TGPRM(x42)){
      case 2:
       CPPRD(__AGlobSig_116,1);
       CPPRD(__AGlobSig_119,1);
       CPPRD(__AGlobSig_120,1);
       x43=__AGlobSig_116;break;
      case 0:
       CPPRD(__AGlobSig_117,1);
       CPPRD(__AGlobSig_119,1);
       CPPRD(__AGlobSig_120,1);
       x43=__AGlobSig_117;break;
      default: 
       CPPRD(__AGlobSig_115,1);
       CPPRD(__AGlobSig_119,1);
       CPPRD(__AGlobSig_120,1);
       x43=__AGlobSig_115;}
     ADenotation_4(x43,__AGlobSig_119,x44);
     ADenotation_4(__AGlobSig_120,x44,r);}}
  }else{
   {OBJ x45=FLD(x1,1);OBJ x46=FLD(x1,2);
    if(EXPRD(x1,1)){
     DSPRDF(x1);
    }else{
     COPY(x46,1);
     FRPRD(x1,1);}
    {OBJ x48;OBJ x47;OBJ x49;
     switch(TGPRM(x45)){
      case 2:
       CPPRD(__AGlobSig_116,1);
       CPPRD(__AGlobSig_121,1);
       CPPRD(__AGlobSig_122,1);
       CPPRD(__AGlobSig_123,2);
       CPCLS(__AOcPos_34,1);
       x48=__AGlobSig_116;break;
      case 0:
       CPPRD(__AGlobSig_117,1);
       CPPRD(__AGlobSig_121,1);
       CPPRD(__AGlobSig_122,1);
       CPPRD(__AGlobSig_123,2);
       CPCLS(__AOcPos_34,1);
       x48=__AGlobSig_117;break;
      default: 
       CPPRD(__AGlobSig_115,1);
       CPPRD(__AGlobSig_121,1);
       CPPRD(__AGlobSig_122,1);
       CPPRD(__AGlobSig_123,2);
       CPCLS(__AOcPos_34,1);
       x48=__AGlobSig_115;}
     x47=_ASeqConv_3(__AGlobSig_121,__AGlobSig_122,__AGlobSig_123,__AOcPos_34,x46);
     ADenotation_4(__AGlobSig_123,x47,x49);
     ADenotation_4(x48,x49,r);}}}}
 return r;}

extern OBJ _AGlobSig_102(OBJ x1,OBJ x2) /* ++ */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x31=FLD(x1,1);OBJ x32=FLD(x1,2);FLAG x_x1=EXPRD(x1,1);
   if(x_x1){
   }else{
    COPY(x32,1);}
   if(ISPRD(x2)&&(ISTGPRD(x2,2))){
    {OBJ x34=FLD(x2,2);
     if(EXPRD(x2,1)){
      DSPRDF(x2);
     }else{
      COPY(x34,1);
      FRPRD(x2,1);}
     {
      if(x_x1){
       RPRD(x1,r);
      }else{
       FRPRD(x1,1);PRD(2,2,r);FLD(r,1)=x31;}
      FLD(r,2)=_ASeq_26(x32,x34);}}
   }else{
    HLT("++\'PrioTab: ++ for table rules only");}}
 }else{
  HLT("++\'PrioTab: ++ for table rules only");}
 return r;}

extern OBJ _AGlobSig_105(OBJ x1) /* tab */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AGlobSig_106(OBJ x1) /* pT */
{OBJ r;
 r=x1;
 return r;}

extern OBJ _AGlobSig_107(OBJ x1,OBJ x2) /* <! */
{OBJ r;
 COPY(x1,1);
 {OBJ x3;OBJ x4;
  x3=_AGlobSig_124(x1);
  if(ISTGPRM(x3,1)){
   COPY(x2,1);
   x4=_AGlobSig_124(x2);
  }else{
   x4=__ABUILTIN_3;}
  if(ISTGPRM(x4,1)){
   COPY(x1,1);
   COPY(x2,1);
   {OBJ x5;OBJ x6;OBJ x7;
    x5=_AName_12(x1);
    x6=_AName_12(x2);
    ANat_80(x5,x6,x7);
    if(ISTGPRM(x7,1)){
     FREE(x1,1);
     FREE(x2,1);
     r=__ABUILTIN_5;
    }else{
     {OBJ x8;
      ANat_81(x5,x6,x8);
      if(ISTGPRM(x8,1)){
       FREE(x1,1);
       FREE(x2,1);
       r=__ABUILTIN_3;
      }else{
       {OBJ x9;OBJ x10;
	x9=_AName_11(x1);
	x10=_AName_11(x2);
	ANat_80(x9,x10,r);}}}}}
  }else{
   r=_AName_32(x1,x2);}}
 return r;}

extern OBJ _AGlobSig_108(OBJ x1,OBJ x2) /* <!> */
{OBJ r;
 COPY(x1,1);
 {OBJ x3;OBJ x4;
  x3=_AGlobSig_125(x1);
  if(ISTGPRM(x3,1)){
   COPY(x2,1);
   x4=_AGlobSig_125(x2);
  }else{
   x4=__ABUILTIN_3;}
  if(ISTGPRM(x4,1)){
   COPY(x1,1);
   COPY(x2,1);
   {OBJ x5;OBJ x6;OBJ x7;
    x5=_AName_12(x1);
    x6=_AName_12(x2);
    ANat_76(x5,x6,x7);
    if(ISTGPRM(x7,1)){
     {OBJ x8;OBJ x9;
      x8=_AName_11(x1);
      x9=_AName_11(x2);
      ANat_76(x8,x9,r);}
    }else{
     FREE(x1,1);
     FREE(x2,1);
     r=__ABUILTIN_3;}}
  }else{
   r=_AName_31(x1,x2);}}
 return r;}

extern OBJ _AGlobSig_110(OBJ x1) /* pT? */
{OBJ r;
 FREE(x1,1);
 r=__ABUILTIN_5;
 return r;}

extern OBJ _AGlobSig_112(OBJ x1,OBJ x2) /* table */
{OBJ r;
 PRD(2,2,r);FLD(r,1)=x1;FLD(r,2)=x2;
 return r;}

extern OBJ _AGlobSig_113(OBJ x1) /* table? */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   FREE(FLD(x1,2),1);DSPRDF(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_114(OBJ x1) /* posS */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,2))){
  {OBJ x3=FLD(x1,2);
   if(EXPRD(x1,1)){
    r=x3;
    DSPRDF(x1);
   }else{
    COPY(x3,1);
    r=x3;
    FRPRD(x1,1);}}
 }else{
  HLT("GlobSig at <256,32-35> : undefined selection posS\'GlobSig:rule->seq");}
 return r;}

extern OBJ _AGlobSig_124(OBJ x1) /* <!'124 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,4)||ISTGPRD(x1,5)||ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}

extern OBJ _AGlobSig_125(OBJ x1) /* <!>'125 */
{OBJ r;
 if(ISPRD(x1)&&(ISTGPRD(x1,4)||ISTGPRD(x1,5)||ISTGPRD(x1,2))){
  if(EXPRD(x1,1)){
   DSPRD(x1);
  }else{
   DCPRD(x1,1);}
  r=__ABUILTIN_5;
 }else{
  FREE(x1,1);
  r=__ABUILTIN_3;}
 return r;}







static OBJ _mt_14_0_14(OBJ t,OBJ t1,OBJ t2,OBJ t3,OBJ t4,OBJ t5,OBJ t6,OBJ t7,OBJ t8,OBJ t9,OBJ t10,OBJ t11,OBJ t12,OBJ t13,OBJ t14) 
{OBJ r;
 DCCLS(t,1);
 r=(*(OBJ(*)(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ))ENTRY(t))(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14);
 return r;}

static OBJ _mt_17_0_17(OBJ t,OBJ t1,OBJ t2,OBJ t3,OBJ t4,OBJ t5,OBJ t6,OBJ t7,OBJ t8,OBJ t9,OBJ t10,OBJ t11,OBJ t12,OBJ t13,OBJ t14,OBJ t15,OBJ t16,OBJ t17) 
{OBJ r;
 DCCLS(t,1);
 r=(*(OBJ(*)(OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ,OBJ))ENTRY(t))(t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17);
 return r;}

init_AGlobSig()
{
 static int visited=0; if(visited) return; visited=1;
 init_ADenotation();
 init_ASeqConv();
 init_AInt();
 init_ATable();
 init_ADArrayReduce();
 init_AUniqueTable();
 init_ASeqReduce();
 init_ADeclEntry();
 init_ASetByBST();
 init_APartNameEntry();
 init_ABSTree();
 init_AImpExpEntry();
 init_ATree();
 init_AObjects();
 init_AName();
 init_AGlobSigImpl();
 init_ARep();
 init_APragma();
 init_AImpl();
 init_AGlobPragma();
 init_AOcPos();
 init_AOption();
 init_APair();
 init_ASeq();
 init_ANat();
 init_AMap();
 init_ASet();
 init_AChar();
 init_AFct();
 init_ABitset();
 init_APatterns();
 init_AAttributes();
 init_ADArray();
 init_ANatMap();
 init_AString();
 init_AArray();
 init_APartName();
 CLS(1,_AGlobSig_95,__AGlobSig_95);
 CLS(1,_AGlobSig_31,__AGlobSig_31);
 CLS(1,_AGlobSig_63,__AGlobSig_63);
 CLS(1,_AGlobSig_94,__AGlobSig_94);
 CLS(1,_AGlobSig_30,__AGlobSig_30);
 CLS(1,_AGlobSig_62,__AGlobSig_62);
 CLS(1,_AGlobSig_125,__AGlobSig_125);
 CLS(5,_AGlobSig_29,__AGlobSig_29);
 CLS(1,_AGlobSig_93,__AGlobSig_93);
 CLS(1,_AGlobSig_124,__AGlobSig_124);
 CLS(1,_AGlobSig_60,__AGlobSig_60);
 CLS(1,_AGlobSig_92,__AGlobSig_92);
 DEN(" ",__AGlobSig_123);
 CLS(1,_AGlobSig_91,__AGlobSig_91);
 CLS(1,_AGlobSig_27,__AGlobSig_27);
 CLS(17,_AGlobSig_59,__AGlobSig_59);
 DEN(", ",__AGlobSig_122);
 CLS(2,_AGlobSig_90,__AGlobSig_90);
 CLS(1,_AGlobSig_26,__AGlobSig_26);
 CLS(1,_AGlobSig_58,__AGlobSig_58);
 DEN("at ",__AGlobSig_121);
 CLS(2,_AGlobSig_89,__AGlobSig_89);
 CLS(1,_AGlobSig_25,__AGlobSig_25);
 CLS(1,_AGlobSig_57,__AGlobSig_57);
 DEN("[",__AGlobSig_120);
 CLS(2,_AGlobSig_88,__AGlobSig_88);
 CLS(1,_AGlobSig_24,__AGlobSig_24);
 CLS(1,_AGlobSig_56,__AGlobSig_56);
 DEN("]",__AGlobSig_119);
 CLS(2,_AGlobSig_87,__AGlobSig_87);
 CLS(3,_AGlobSig_23,__AGlobSig_23);
 CLS(1,_AGlobSig_55,__AGlobSig_55);
 DEN("-",__AGlobSig_118);
 CLS(1,_AGlobSig_54,__AGlobSig_54);
 CLS(2,_AGlobSig_86,__AGlobSig_86);
 DEN("left",__AGlobSig_117);
 CLS(2,_AGlobSig_85,__AGlobSig_85);
 CLS(1,_AGlobSig_21,__AGlobSig_21);
 CLS(1,_AGlobSig_53,__AGlobSig_53);
 DEN("both",__AGlobSig_116);
 CLS(2,_AGlobSig_84,__AGlobSig_84);
 CLS(1,_AGlobSig_52,__AGlobSig_52);
 DEN("right",__AGlobSig_115);
 CLS(2,_AGlobSig_83,__AGlobSig_83);
 CLS(1,_AGlobSig_19,__AGlobSig_19);
 CLS(1,_AGlobSig_51,__AGlobSig_51);
 CLS(1,_AGlobSig_114,__AGlobSig_114);
 CLS(2,_AGlobSig_82,__AGlobSig_82);
 CLS(1,_AGlobSig_50,__AGlobSig_50);
 CLS(1,_AGlobSig_113,__AGlobSig_113);
 CLS(2,_AGlobSig_81,__AGlobSig_81);
 CLS(1,_AGlobSig_17,__AGlobSig_17);
 CLS(1,_AGlobSig_49,__AGlobSig_49);
 CLS(2,_AGlobSig_112,__AGlobSig_112);
 CLS(2,_AGlobSig_80,__AGlobSig_80);
 CLS(1,_AGlobSig_48,__AGlobSig_48);
 CLS(1,_AGlobSig_47,__AGlobSig_47);
 CLS(1,_AGlobSig_79,__AGlobSig_79);
 CLS(1,_AGlobSig_110,__AGlobSig_110);
 CLS(1,_AGlobSig_14,__AGlobSig_14);
 CLS(1,_AGlobSig_46,__AGlobSig_46);
 CLS(1,_AGlobSig_45,__AGlobSig_45);
 CLS(1,_AGlobSig_44,__AGlobSig_44);
 CLS(2,_AGlobSig_108,__AGlobSig_108);
 CLS(2,_AGlobSig_107,__AGlobSig_107);
 CLS(1,_AGlobSig_11,__AGlobSig_11);
 CLS(14,_AGlobSig_43,__AGlobSig_43);
 CLS(1,_AGlobSig_10,__AGlobSig_10);
 CLS(1,_AGlobSig_106,__AGlobSig_106);
 CLS(1,_AGlobSig_41,__AGlobSig_41);
 CLS(1,_AGlobSig_105,__AGlobSig_105);
 CLS(1,_AGlobSig_8,__AGlobSig_8);
 CLS(1,_AGlobSig_40,__AGlobSig_40);
 CLS(1,_AGlobSig_71,__AGlobSig_71);
 CLS(1,_AGlobSig_7,__AGlobSig_7);
 CLS(1,_AGlobSig_39,__AGlobSig_39);
 CLS(2,_AGlobSig_102,__AGlobSig_102);
 CLS(1,_AGlobSig_70,__AGlobSig_70);
 CLS(2,_AGlobSig_6,__AGlobSig_6);
 CLS(1,_AGlobSig_38,__AGlobSig_38);
 CLS(1,_AGlobSig_101,__AGlobSig_101);
 CLS(1,_AGlobSig_69,__AGlobSig_69);
 CLS(1,_AGlobSig_5,__AGlobSig_5);
 CLS(3,_AGlobSig_37,__AGlobSig_37);
 CLS(1,_AGlobSig_4,__AGlobSig_4);
 CLS(1,_AGlobSig_100,__AGlobSig_100);
 CLS(2,_AGlobSig_99,__AGlobSig_99);
 CLS(1,_AGlobSig_3,__AGlobSig_3);
 CLS(1,_AGlobSig_35,__AGlobSig_35);
 CLS(1,_AGlobSig_98,__AGlobSig_98);
 CLS(2,_AGlobSig_2,__AGlobSig_2);
 CLS(1,_AGlobSig_34,__AGlobSig_34);
 CLS(1,_AGlobSig_97_c,__AGlobSig_97);
 CLS(1,_AGlobSig_33,__AGlobSig_33);
 CLS(1,_AGlobSig_65,__AGlobSig_65);
 CLS(1,_AGlobSig_96,__AGlobSig_96);
 CLS(1,_AGlobSig_32,__AGlobSig_32);
 CLS(1,_AGlobSig_64,__AGlobSig_64);
 MTH(14,0,14,_mt_14_0_14);LZYMTH(14,0,14,_mt_14_0_14);
 MTH(17,0,17,_mt_17_0_17);LZYMTH(17,0,17,_mt_17_0_17);
 PRM1(__AGlobSig_13);
 PRM(2,__AGlobSig_16);
 PRM(1,__AGlobSig_18);
 PRM(0,__AGlobSig_20);
 PRM1(__AGlobSig_78);
 __AGlobSig_104=__ATree_7;}

