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
7966637f
Commit
7966637f
authored
May 19, 2018
by
Heiko Becker
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix typing bug in HOL4 too
parent
ad5170ed
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
hol4/TypingScript.sml
hol4/TypingScript.sml
+1
-1
No files found.
hol4/TypingScript.sml
View file @
7966637f
...
...
@@ -45,7 +45,7 @@ val typeMap_def = Define `
|
Unop
u
e1
=>
let
tMap_new
=
typeMap
Gamma
e1
tMap
fBits
in
(
case
FloverMapTree_find
e1
tMap_new
of
|
SOME
m_e1
=>
FloverMapTree_insert
e
m_e1
tMap
|
SOME
m_e1
=>
FloverMapTree_insert
e
m_e1
tMap
_new
|
NONE
=>
FloverMapTree_empty
)
|
Binop
b
e1
e2
=>
let
tMap1
=
typeMap
Gamma
e1
tMap
fBits
in
...
...
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