Mercurial > urweb

comparison src/elab_util.sig @ 711:7292bcb7c02d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made type class system very general; demo compiles
author Adam Chlipala <adamc@hcoop.net>
date Thu, 09 Apr 2009 12:31:56 -0400
parents 588b9d16b00a
children d20d6afc1206
comparison
equal deleted inserted replaced
710:71409a4ccb67 711:7292bcb7c02d
60 bind : 'context * binder -> 'context} 60 bind : 'context * binder -> 'context}
61 -> 'context -> (Elab.con -> Elab.con) 61 -> 'context -> (Elab.con -> Elab.con)
62 val map : {kind : Elab.kind' -> Elab.kind', 62 val map : {kind : Elab.kind' -> Elab.kind',
63 con : Elab.con' -> Elab.con'} 63 con : Elab.con' -> Elab.con'}
64 -> Elab.con -> Elab.con 64 -> Elab.con -> Elab.con
65 val existsB : {kind : 'context * Elab.kind' -> bool,
66 con : 'context * Elab.con' -> bool,
67 bind : 'context * binder -> 'context}
68 -> 'context -> Elab.con -> bool
65 val exists : {kind : Elab.kind' -> bool, 69 val exists : {kind : Elab.kind' -> bool,
66 con : Elab.con' -> bool} -> Elab.con -> bool 70 con : Elab.con' -> bool} -> Elab.con -> bool
67 71
68 val foldB : {kind : 'context * Elab.kind' * 'state -> 'state, 72 val foldB : {kind : 'context * Elab.kind' * 'state -> 'state,
69 con : 'context * Elab.con' * 'state -> 'state, 73 con : 'context * Elab.con' * 'state -> 'state,