diff options
| author | Son Ho | 2023-01-31 18:24:47 +0100 |
|---|---|---|
| committer | Son HO | 2023-06-04 21:54:38 +0200 |
| commit | bbe4a8b234d183e36c157dbc6b9900214e405a52 (patch) | |
| tree | 3894ae7606ae5f9aa5f6dc3d56007d40b94e6339 /backends/hol4/primitivesScript.sml | |
| parent | bc2a51e89f198ab33549a59a59bcf418921f8529 (diff) | |
Start working on divDefLib for diverging definitions
Diffstat (limited to 'backends/hol4/primitivesScript.sml')
| -rw-r--r-- | backends/hol4/primitivesScript.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backends/hol4/primitivesScript.sml b/backends/hol4/primitivesScript.sml index 6dd9f6ec..969e9f6e 100644 --- a/backends/hol4/primitivesScript.sml +++ b/backends/hol4/primitivesScript.sml @@ -12,7 +12,7 @@ Datatype: End Datatype: - result = Return 'a | Fail error | Loop + result = Return 'a | Fail error | Diverge End Type M = ``: 'a result`` @@ -22,7 +22,7 @@ val bind_def = Define ` case x of Return y => f y | Fail e => Fail e - | Loop => Loop`; + | Diverge => Diverge`; val bind_name = fst (dest_const “bind”) |