(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: ExprA.i3                                              *)
(* Last Modified On Sat Feb 10 17:23:43 1990 By kalsow         *)

INTERFACE ExprA;

IMPORT Expr, ExprRep;

TYPE
  T = Expr.T OBJECT
	a       : Expr.T;
      METHODS
        bind    := Bind;
	isEqual := EqCheck;
      END;

(* misc. useful methods *)
PROCEDURE Bind    (t: T);
PROCEDURE EqCheck (t: T;  e: Expr.T): BOOLEAN;

END ExprA.