(* ||M|| This file is part of HELM, an Hypertextual, Electronic ||A|| Library of Mathematics, developed at the Computer Science ||T|| Department, University of Bologna, Italy. ||I|| ||T|| HELM is free software; you can redistribute it and/or ||A|| modify it under the terms of the GNU General Public License \ / version 2 or (at your option) any later version. \ / This software is distributed as is, NO WARRANTY. V_______________________________________________________________ *) (* $Id: terms.mli 9822 2009-06-03 15:37:06Z tassi $ *) module type NCicContext = sig val metasenv : NCic.metasenv val subst : NCic.substitution val context : NCic.context end module NCicBlob(C : NCicContext) : Terms.Blob with type t = NCic.term = struct type t = NCic.term let eq x y = NCicReduction.alpha_eq C.metasenv C.subst C.context x y;; let rec compare x y = match x,y with | NCic.Rel i, NCic.Rel j -> i-j | NCic.Const r1, NCic.Const r2 -> NReference.compare r1 r2 | NCic.Appl l1, NCic.Appl l2 -> assert false (* TODO *) | _ -> assert false ;; let pp t = NCicPp.ppterm ~context:C.context ~metasenv:C.metasenv ~subst:C.subst t;; end