Fix typing bug in HOL4 too

7966637f · Heiko Becker · ad5170ed · 7966637f
Commit 7966637f authored May 19, 2018 by Heiko Becker
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

hol4/TypingScript.sml hol4/TypingScript.sml +1 -1

No files found.
--- a/hol4/TypingScript.sml
+++ b/hol4/TypingScript.sml
@@ -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