'\"#ident	"@(#)eqn:cateqnchar for UNIX PC"
'\"		Copyright (c) 1984 AT&T
'\"		  All Rights Reserved
'\"     THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
'\"   The copyright notice above does not evidence any actual
'\"   or intended publication of such source code.
.EQ
tdefine ciplus % "\o'\(pl\(ci'" %
ndefine ciplus % "\(c+" %
tdefine citimes % "\o'\(mu\(ci'" %
ndefine citimes % "\(cx" %
tdefine =wig % "\(eq\h'-\w'\(eq'u-\w'\s-2\(ap'u/2u'\v'-.4m'\s-2\z\(ap\(ap\s+2\v'.4m'\h'\w'\(eq'u-\w'\s-2\(ap'u/2u'" %
ndefine =wig % "\(~=" %
tdefine bigstar % "\o'\(pl\(mu'" %
ndefine bigstar % \(b* %
tdefine =dot % "\z\(eq\v'-.6m'\h'.2m'\s+2.\s-2\v'.6m'\h'.1m'" %
ndefine =dot % "\(=." %
tdefine orsign % "\s-2\v'-.15m'\z\e\e\h'-.05m'\z\(sl\(sl\v'.15m'\s+2" %
ndefine orsign % "\(os" %
tdefine andsign % "\s-2\v'-.15m'\z\(sl\(sl\h'-.05m'\z\e\e\v'.15m'\s+2" %
ndefine andsign % "\(as" %
tdefine =del % "\v'.3m'\z=\v'-.6m'\h'.3m'\s-1\(*D\s+1\v'.3m'" %
ndefine =del % "\(=D" %
tdefine oppA % "\s-2\v'-.15m'\z\e\e\h'-.05m'\z\(sl\(sl\v'-.15m'\h'-.75m'\z-\z-\h'.2m'\z-\z-\v'.3m'\h'.4m'\s+2" %
ndefine oppA % "\(oA" %
tdefine oppE %"\s-3\v'.2m'\z\(em\v'-.5m'\z\(em\v'-.5m'\z\(em\v'.55m'\h'.9m'\z\(br\z\(br\v'.25m'\s+3" %
ndefine oppE % "\(oE" %
tdefine incl % "\s-1\z\(or\h'-.1m'\v'-.45m'\z\(em\v'.7m'\z\(em\v'.2m'\(em\v'-.45m'\s+1" %
ndefine incl % "\(ic" %
tdefine nomem % "\o'\(mo\(sl'" %
ndefine nomem % "\(nm" %
tdefine angstrom % "\fR\zA\v'-.3m'\h'.2m'\(de\v'.3m'\fP\h'.2m'" %
ndefine angstrom % \(ag %
tdefine star %{ roman "\v'.5m'\s+3*\s-3\v'-.5m'"}%
ndefine star % "\(**" %
tdefine || % \(or\(or %
ndefine || % "\(||" %
tdefine <wig % "\z<\v'.4m'\(ap\v'-.4m'" %
ndefine <wig % "\(<~" %
tdefine >wig % "\z>\v'.4m'\(ap\v'-.4m'" %
ndefine >wig % "\(>~" %
tdefine langle % "\s-3\b'\(sl\e'\s0" %
ndefine langle % < %
tdefine rangle % "\s-3\b'\e\(sl'\s0" %
ndefine rangle % > %
tdefine hbar % "\zh\v'-.6m'\h'.05m'\(ru\v'.6m'" %
ndefine hbar % "\(hb" %
tdefine ppd % "\o'\(ru\s-2\(or\s+2'" %
ndefine ppd % "\(pp" %
tdefine <-> % "\o'\(<-\(->'" %
ndefine <-> % "\(<>" %
tdefine <=> % "\s-2\z<\v'.05m'\h'.2m'\z=\h'.55m'=\h'-.6m'\v'-.05m'>\s+2" %
ndefine <=> % "\(df" %
tdefine |< % "\o'<\(or'" %
ndefine |< % "\z\(or<" %
tdefine |> % "\o'>\(or'" %
ndefine |> % "\z\(or>" %
tdefine ang % "\v'-.15m'\z\s-2\(sl\s+2\v'.15m'\(ru" %
ndefine ang % "\(an" %
tdefine rang % "\z\(or\h'.15m'\(ru" %
ndefine rang % "\(ra" %
tdefine 3dot % "\v'-.8m'\z.\v'.5m'\z.\v'.5m'.\v'-.2m'" %
ndefine 3dot % "\(3d" %
tdefine thf % ".\v'-.5m'.\v'.5m'." %
ndefine thf % "\(tf" %
tdefine quarter % roman \(14 %
ndefine quarter % \(14 %
tdefine 3quarter % roman \(34 %
ndefine 3quarter % \(34 %
tdefine degree % \(de %
ndefine degree % \(de % 
tdefine square % \(sq %
ndefine square % \(sq %
tdefine circle % \(ci %
ndefine circle % \(ci %
tdefine blot % "\fB\(sq\fP" %
ndefine blot % "\(bx" %
tdefine bullet % \(bu %
ndefine bullet % "\(bu" %
tdefine -wig % "\(~=" %
ndefine -wig % "\(-~" %
tdefine wig % \(ap %
ndefine wig % "\(ap" %
tdefine prop % \(pt %
ndefine prop % "\(pt" %
tdefine empty % \(es %
ndefine empty % "\(es" %
tdefine member % \(mo %
ndefine member % "\(mo" %
tdefine cup % \(cu %
ndefine cup % "\(cu" %
tdefine scrL % "\z\fI)\fP\h'-.1m'\fR(\fP\h'.1m'" %
ndefine scrL % "\(sL" %
tdefine ==> % "\z>\v'.5m'\h'.1m'\(eq\v'-.5m'\h'.05m'" %
ndefine ==> % "\(>=" %
tdefine ==< % "\z<\v'.5m'\h'.1m'\(eq\v'-.5m'\h'.05m'" %
ndefine ==< % "\(<=" %
define cap % \(ca %
define subset % \(sb %
define supset % \(sp %
define !subset % \(ib %
define !supset % \(ip %
.EN