diff options
| author | Brian Campbell | 2018-07-10 14:05:36 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-07-10 14:06:48 +0100 |
| commit | adadda8dfc80d0b7e6a967ceeda98624198800c1 (patch) | |
| tree | cf12fc33403c821d78faa0883b26466f205f2e44 /lib/hol/stateAuxiliaryScript.sml | |
| parent | f652ae23b6cbaa3d70ae38f8942d6ae61af2c1d6 (diff) | |
Update HOL setup
Diffstat (limited to 'lib/hol/stateAuxiliaryScript.sml')
| -rw-r--r-- | lib/hol/stateAuxiliaryScript.sml | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/lib/hol/stateAuxiliaryScript.sml b/lib/hol/stateAuxiliaryScript.sml deleted file mode 100644 index c8269750..00000000 --- a/lib/hol/stateAuxiliaryScript.sml +++ /dev/null @@ -1,61 +0,0 @@ -(*Generated by Lem from ../../src/gen_lib/state.lem.*) -open HolKernel Parse boolLib bossLib; -open lem_pervasives_extraTheory sail_valuesTheory state_monadTheory stateTheory; - -val _ = numLib.prefer_num(); - - - -open lemLib; -(* val _ = lemLib.run_interactive := true; *) -val _ = new_theory "stateAuxiliary" - - -(****************************************************) -(* *) -(* Termination Proofs *) -(* *) -(****************************************************) - -(* val gst = Defn.tgoal_no_defn (iterS_aux_def, iterS_aux_ind) *) -val (iterS_aux_rw, iterS_aux_ind_rw) = - Defn.tprove_no_defn ((iterS_aux_def, iterS_aux_ind), - WF_REL_TAC`measure (LENGTH o SND o SND)` \\ rw[] - ) -val iterS_aux_rw = save_thm ("iterS_aux_rw", iterS_aux_rw); -val iterS_aux_ind_rw = save_thm ("iterS_aux_ind_rw", iterS_aux_ind_rw); - - -(* val gst = Defn.tgoal_no_defn (foreachS_def, foreachS_ind) *) -val (foreachS_rw, foreachS_ind_rw) = - Defn.tprove_no_defn ((foreachS_def, foreachS_ind), - WF_REL_TAC`measure (LENGTH o FST)` \\ rw[] - ) -val foreachS_rw = save_thm ("foreachS_rw", foreachS_rw); -val foreachS_ind_rw = save_thm ("foreachS_ind_rw", foreachS_ind_rw); - - -(* -These are unprovable. - -(* val gst = Defn.tgoal_no_defn (whileS_def, whileS_ind) *) -val (whileS_rw, whileS_ind_rw) = - Defn.tprove_no_defn ((whileS_def, whileS_ind), - cheat (* the termination proof *) - ) -val whileS_rw = save_thm ("whileS_rw", whileS_rw); -val whileS_ind_rw = save_thm ("whileS_ind_rw", whileS_ind_rw); - - -(* val gst = Defn.tgoal_no_defn (untilS_def, untilS_ind) *) -val (untilS_rw, untilS_ind_rw) = - Defn.tprove_no_defn ((untilS_def, untilS_ind), - cheat (* the termination proof *) - ) -val untilS_rw = save_thm ("untilS_rw", untilS_rw); -val untilS_ind_rw = save_thm ("untilS_ind_rw", untilS_ind_rw); -*) - - -val _ = export_theory() - |
