diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-03 11:04:25 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-03 11:04:25 -0400 |
| commit | b2eb9f45b9b14e5c7f53d0ad7ca8e84aa7858b59 (patch) | |
| tree | cd4847d16103c7bdbfba1ece0416497bb28d05d8 /src/disjoint.sig | |
| parent | e8002363e5d7764edf9a06ec0717f212ebbee26f (diff) | |
Fancier head normalization pushed inside of Disjoint
Diffstat (limited to 'src/disjoint.sig')
| -rw-r--r-- | src/disjoint.sig | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/disjoint.sig b/src/disjoint.sig index 16afa885..025269cf 100644 --- a/src/disjoint.sig +++ b/src/disjoint.sig @@ -30,9 +30,14 @@ signature DISJOINT = sig type env val empty : env - val assert : ElabEnv.env -> env -> Elab.con * Elab.con -> env val enter : env -> env - val prove : ElabEnv.env -> env -> Elab.con * Elab.con * ErrorMsg.span -> (Elab.con * Elab.con) list + type goal = ErrorMsg.span * ElabEnv.env * env * Elab.con * Elab.con + + val assert : ElabEnv.env -> env -> Elab.con * Elab.con -> env * goal list + + val prove : ElabEnv.env -> env -> Elab.con * Elab.con * ErrorMsg.span -> goal list + + val hnormCon : ElabEnv.env * env -> Elab.con -> Elab.con * goal list end |