(***********************************************************************)
(*                                                                     *)
(*                                 GALAX                               *)
(*                            XML Query Engine                         *)
(*                                                                     *)
(*  Copyright 2000, Lucent Technologies.                               *)
(*  Distributed only by permission.                                    *)
(*                                                                     *)
(***********************************************************************)

(* $Id: commontype.mli,v 1.3 2003/04/16 19:52:47 mff Exp $ *)

val small_type : Static_context.static_context -> 
                 Xquery_ast.model list * Occurrence.occurs * Occurrence.occurs ->
                 Xquery_ast.datatype_kind * Occurrence.occurs * Occurrence.occurs -> Xquery_ast.model

