reserve i,j for Nat;
reserve i,j for Nat,
  x for variable,
  l for quasi-loci;
reserve C for initialized ConstructorSignature,
  c for constructor OperSymbol of C;

theorem Th28:
 Constructors = [:{a_Type, an_Adj, a_Term}, [:QuasiLoci, NAT:]:]
  proof
   thus Constructors = [:{a_Type},[:QuasiLoci,NAT:]:] \/
         [:{an_Adj},[:QuasiLoci,NAT:]:] \/ Funcs
      .= [:{a_Type} \/ {an_Adj}, [:QuasiLoci,NAT:]:] \/ Funcs by ZFMISC_1:97
      .= [:{a_Type, an_Adj}, [:QuasiLoci,NAT:]:] \/ Funcs by ENUMSET1:1
      .= [:{a_Type, an_Adj} \/ {a_Term}, [:QuasiLoci,NAT:]:] by ZFMISC_1:97
      .= [:{a_Type, an_Adj, a_Term}, [:QuasiLoci, NAT:]:] by ENUMSET1:3;
  end;
