Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
AVA
FloVer
Commits
2f1758d1
Commit
2f1758d1
authored
Sep 27, 2017
by
Heiko Becker
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Prove IEEE connection without cheats
parent
81536828
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
212 additions
and
192 deletions
+212
-192
hol4/IEEE_connectionScript.sml
hol4/IEEE_connectionScript.sml
+212
-190
hol4/Infra/MachineTypeScript.sml
hol4/Infra/MachineTypeScript.sml
+0
-2
No files found.
hol4/IEEE_connectionScript.sml
View file @
2f1758d1
This diff is collapsed.
Click to expand it.
hol4/Infra/MachineTypeScript.sml
View file @
2f1758d1
...
...
@@ -161,8 +161,6 @@ which simplifies to 2^(e_max) for base 2
val
maxValue_def
=
Define
`
maxValue
(
m
:
mType
)
=
(
&
(
2
n
**
(
maxExponent
m
))):
real`
;
(*
* Using the sign bit, the very same number is representable as a negative number,
thus just apply negation here **)
val
minValue_def
=
Define
`
minValue
(
m
:
mType
)
=
inv
(
&
(
2
n
**
(
minExponentPos
m
)))
`
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment