Permalink
Browse files

Fix a proof in iocatProg

  • Loading branch information...
xrchz committed Dec 16, 2018
1 parent b96f4c1 commit 754f13d79d430a756041b3c559ef3d12f709f4c4
Showing with 2 additions and 2 deletions.
  1. +2 −2 examples/iocatProgScript.sml
@@ -1,11 +1,11 @@
(*
Faster cat: process 2048 chars at a time.
*)

open preamble basis

val _ = new_theory "iocatProg"


val _ = translation_extends"basisProg";

val st = get_ml_prog_state;
@@ -198,7 +198,7 @@ val cat_spec0 = Q.prove(
fs[ALOOKUP_inFS_fname_openFileFS_nextFD]) >>
qmatch_goalsub_abbrev_tac `STDIO fs'` >>
xlet_auto_spec (SOME (Q.SPECL[`nextFD fs`,`fs'`] close_STDIO_spec))
>- xsimpl
>- (xsimpl \\ simp[Abbr`fs'`])
>- (xsimpl >> fs[InvalidFD_exn_def,Abbr`fs'`,up_stdo_def] >>
simp[validFileFD_def]
\\ drule (GEN_ALL ALOOKUP_inFS_fname_openFileFS_nextFD)

0 comments on commit 754f13d

Please sign in to comment.