Commit 2dea97d6 authored by Heiko Becker's avatar Heiko Becker

Port ErrorBoundsScript to new semantics

parent 2e3a7e7e
This diff is collapsed.
......@@ -18,7 +18,8 @@ val _ = type_abbrev ("typeMap", ``:mType fMap``);
val _ = type_abbrev ("analysisResult", ``:((real # real) # real) fMap``);
val updDefVars_def = Define `
updDefVars (x:real expr) (m:mType) (defVars:real expr -> mType option) (y:real expr) :mType option =
updDefVars (x:real expr) (m:mType) (defVars:real expr -> mType option)
(y:real expr) :mType option =
if y = x then SOME m else defVars y`;
val toRExpMap_def = Define `
......@@ -26,7 +27,7 @@ val toRExpMap_def = Define `
\e. FloverMapTree_find e tMap`;
val toRTMap_def = Define `
toRTMap Gamma (Var v) =
toRTMap (Gamma: real expr -> mType option) (Var v) =
(case Gamma (Var v) of
|SOME m => SOME REAL
|_ => NONE) /\
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment