Skip to content
Permalink
Browse files

Fix some broken proofs

  • Loading branch information...
IlmariReissumies committed May 20, 2019
1 parent c0c4142 commit 1694ad30b916ca2a059685b862eaa0cf965d4fe3
Showing with 7 additions and 5 deletions.
  1. +6 −3 basis/fsFFIPropsScript.sml
  2. +1 −2 compiler/bootstrap/translation/to_closProgScript.sml
@@ -81,14 +81,17 @@ Proof
fs[bumpFD_def]
QED

Theorem bumpFD_inode_tbl[simp]
`(bumpFD fd fs n).inode_tbl = fs.inode_tbl`
Theorem bumpFD_inode_tbl[simp]:
(bumpFD fd fs n).inode_tbl = fs.inode_tbl
Proof
EVAL_TAC
QED

Theorem bumpFD_files[simp]:
(bumpFD fd fs n).files = fs.files
Proof
EVAL_TAC
QED (EVAL_TAC);
QED

Theorem bumpFD_o:
!fs fd n1 n2.
@@ -256,8 +256,7 @@ val clos_annotate_shift_side = Q.prove(`
ho_match_mp_tac clos_annotateTheory.shift_ind>>
`∀a b c d. shift [a] b c d ≠ []` by
(CCONTR_TAC>>fs[]>>
imp_res_tac clos_annotateTheory.shift_SING>>
fs[])>>
metis_tac[clos_annotateTheory.shift_SING,list_distinct])>>
rw[]>>
simp[Once (fetch "-" "clos_annotate_shift_side_def")]>>
rw[]>> metis_tac[]) |> update_precondition;

0 comments on commit 1694ad3

Please sign in to comment.
You can’t perform that action at this time.