Mercurial > urweb

diff src/elab_util.sig @ 1303:c7b9a33c26c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hopeful fix for the Great Unification Bug
author Adam Chlipala <adam@chlipala.net>
date Sun, 10 Oct 2010 14:41:03 -0400
parents b2413e4dd109
children 9e0fa4f6ac93
line wrap: on
line diff
--- a/src/elab_util.sig	Sun Oct 10 13:07:38 2010 -0400
+++ b/src/elab_util.sig	Sun Oct 10 14:41:03 2010 -0400
@@ -1,4 +1,4 @@
-(* Copyright (c) 2008, Adam Chlipala
+(* Copyright (c) 2008-2010, Adam Chlipala
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -29,6 +29,8 @@
 
 val classifyDatatype : (string * int * 'a option) list -> Elab.datatype_kind
 
+val mliftConInCon : (int -> Elab.con -> Elab.con) ref
+
 structure Kind : sig
     val mapfoldB : {kind : ('context, Elab.kind', 'state, 'abort) Search.mapfolderB,
                     bind : 'context * string -> 'context}