Mercurial > urweb
comparison src/disjoint.sig @ 90:94ef20a31550
Fancier head normalization pushed inside of Disjoint
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 03 Jul 2008 11:04:25 -0400 |
parents | b4f2a258e52c |
children | 6ee1c761818f |
comparison
equal
deleted
inserted
replaced
89:d3ee072fa609 | 90:94ef20a31550 |
---|---|
28 signature DISJOINT = sig | 28 signature DISJOINT = sig |
29 | 29 |
30 type env | 30 type env |
31 | 31 |
32 val empty : env | 32 val empty : env |
33 val assert : ElabEnv.env -> env -> Elab.con * Elab.con -> env | |
34 val enter : env -> env | 33 val enter : env -> env |
35 | 34 |
36 val prove : ElabEnv.env -> env -> Elab.con * Elab.con * ErrorMsg.span -> (Elab.con * Elab.con) list | 35 type goal = ErrorMsg.span * ElabEnv.env * env * Elab.con * Elab.con |
36 | |
37 val assert : ElabEnv.env -> env -> Elab.con * Elab.con -> env * goal list | |
38 | |
39 val prove : ElabEnv.env -> env -> Elab.con * Elab.con * ErrorMsg.span -> goal list | |
40 | |
41 val hnormCon : ElabEnv.env * env -> Elab.con -> Elab.con * goal list | |
37 | 42 |
38 end | 43 end |