File: test.v

package info (click to toggle)
sail-ocaml 0.19.1%2Bdfsg5-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 18,008 kB
  • sloc: ml: 75,941; ansic: 8,848; python: 1,342; exp: 560; sh: 474; makefile: 218; cpp: 36
file content (14 lines) | stat: -rw-r--r-- 423 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
From SailStdpp Require Import State_monad State_lifting.
Require Import String.
Require Import List.
Import ListNotations.

Goal True.
let result := eval vm_compute in (liftState register_accessors (main tt) (init_state init_regstate) default_choice) in
match result with
  | [(Value tt,_,_)] => idtac "OK"
  | [(Ex (Failure ?s),_,_)] => idtac "Fail:" s
  | _ => idtac "Fail (unexpected result):" result
end.
exact I.
Qed.