/***   coercion.h   ***/

bool	equivalent_or_union_member(int,int);

bool	strong_coercion(int,int*);
bool	firmly_coerceable(int,int,int*);
void	firm_coercion(int,int,int*);
void	meek_coercion(int*);
bool	weak_coercion(int*);
#define soft_coercion(Q) {while(deproceduring(Q));}

bool	deproceduring(int*);
#define void_coercion(Q) {if(*Q == G && MORF){meek_coercion(Q);MORF=FALSE;}}
inta	meek_integer(int*);
int	short_meek_integer(int*);