diff options
| author | lduboisd <lduboisd@inria.fr> | 2022-04-11 11:29:23 +0200 |
|---|---|---|
| committer | lduboisd <lduboisd@inria.fr> | 2022-04-11 11:29:23 +0200 |
| commit | e61a54d7581b42259d726389250e1cb63682d8d8 (patch) | |
| tree | b2db484c1bac75ff46484a545b87a971a44c68b0 /examples/foo.v | |
| parent | 59be27207e4527661d219991728a1372335ceede (diff) | |
| download | smtcoq-e61a54d7581b42259d726389250e1cb63682d8d8.tar.gz smtcoq-e61a54d7581b42259d726389250e1cb63682d8d8.zip | |
verit_timeout takes an integer as parameter
Diffstat (limited to 'examples/foo.v')
| -rw-r--r-- | examples/foo.v | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/examples/foo.v b/examples/foo.v deleted file mode 100644 index c2162df..0000000 --- a/examples/foo.v +++ /dev/null @@ -1,28 +0,0 @@ -Add Rec LoadPath "../src" as SMTCoq. -Require Import SMTCoq.SMTCoq. -Require Import ZArith. - -Section test_timeout. - -Variable P : Z -> bool. -Variable H0 : P 0. -Variable HInd : forall n, implb (P n) (P (n + 1)). - -Goal P 3. -verit. -Qed. - -Tactic Notation "verit_timeout2" := - prop2bool; - [ .. | get_hyps ltac:(fun Hs => - lazymatch Hs with - | Some ?Hs => idtac 1 ; - prop2bool_hyps Hs; idtac 2 ; - [ .. | idtac 3 ; verit_bool_base_auto_timeout (Some Hs) ] - | None => idtac 4 ; verit_bool_base_auto_timeout (@None nat) - end) - ]. - -Goal true -> P 1000000000. -intro H. -verit_timeout2. constructor.
\ No newline at end of file |