author | haftmann |
Tue, 21 Dec 2010 07:23:21 +0100 | |
changeset 41339 | 481c89fabcbc |
parent 41338 | ffd730fcf0ac |
child 41341 | e65a122057ad |
child 41342 | 3519e0dd8f75 |
--- a/src/HOL/Tools/hologic.ML Tue Dec 21 06:53:20 2010 +0100 +++ b/src/HOL/Tools/hologic.ML Tue Dec 21 07:23:21 2010 +0100 @@ -8,6 +8,7 @@ sig val typeS: sort val typeT: typ + val mk_id: typ -> term val mk_comp: term * term -> term val boolN: string val boolT: typ @@ -145,6 +146,8 @@ (* functions *) +fun mk_id T = Const ("Fun.id", T --> T); + fun mk_comp (f, g) = let val fT = fastype_of f;