projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4edce33
)
HaskTyCons: add Int and Bool
author
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 4 Jul 2011 07:33:28 +0000
(
00:33
-0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 4 Jul 2011 07:33:28 +0000
(
00:33
-0700)
src/HaskTyCons.v
patch
|
blob
|
history
diff --git
a/src/HaskTyCons.v
b/src/HaskTyCons.v
index
617cd59
..
1eb479a
100644
(file)
--- a/
src/HaskTyCons.v
+++ b/
src/HaskTyCons.v
@@
-29,4
+29,6
@@
Instance TyFunToLatex : ToLatex TyCon := { toLatex := fun x => toLatex (toS
Variable ModalBoxTyCon : TyCon. Extract Inlined Constant ModalBoxTyCon => "TysWiredIn.hetMetCodeTypeTyCon".
Variable PairTyCon : TyFun. Extract Inlined Constant PairTyCon => "TysWiredIn.pairTyCon".
Variable UnitTyCon : TyFun. Extract Inlined Constant UnitTyCon => "TysWiredIn.unitTyCon".
Variable ModalBoxTyCon : TyCon. Extract Inlined Constant ModalBoxTyCon => "TysWiredIn.hetMetCodeTypeTyCon".
Variable PairTyCon : TyFun. Extract Inlined Constant PairTyCon => "TysWiredIn.pairTyCon".
Variable UnitTyCon : TyFun. Extract Inlined Constant UnitTyCon => "TysWiredIn.unitTyCon".
+Variable IntTyCon : TyFun. Extract Inlined Constant IntTyCon => "TysWiredIn.intTyCon".
+Variable BoolTyCon : TyFun. Extract Inlined Constant BoolTyCon => "TysWiredIn.boolTyCon".
Variable ArrowTyCon : TyCon. Extract Constant ArrowTyCon => "Type.funTyCon".
Variable ArrowTyCon : TyCon. Extract Constant ArrowTyCon => "Type.funTyCon".