diff options
| author | Théo Zimmermann | 2018-09-14 10:18:47 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2018-09-14 10:18:47 +0200 |
| commit | d1da0509fe8c26a7e5c41b610866a7d00e635e77 (patch) | |
| tree | d271fe25b3e26b981e84940d2f11bb4ca0092f7f /test-suite | |
| parent | c0c786646ee305a2d8d0260ffcfc43ff6cfba1e7 (diff) | |
| parent | 9894cffae9662f0473ab3f8696e8ca498cc9cdec (diff) | |
Merge PR #7894: Remove quote plugin
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/output/Quote.v | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/test-suite/output/Quote.v b/test-suite/output/Quote.v deleted file mode 100644 index 2c373d5052..0000000000 --- a/test-suite/output/Quote.v +++ /dev/null @@ -1,36 +0,0 @@ -Require Import Quote. - -Parameter A B : Prop. - -Inductive formula : Type := - | f_and : formula -> formula -> formula - | f_or : formula -> formula -> formula - | f_not : formula -> formula - | f_true : formula - | f_atom : index -> formula - | f_const : Prop -> formula. - -Fixpoint interp_f (vm: - varmap Prop) (f:formula) {struct f} : Prop := - match f with - | f_and f1 f2 => interp_f vm f1 /\ interp_f vm f2 - | f_or f1 f2 => interp_f vm f1 \/ interp_f vm f2 - | f_not f1 => ~ interp_f vm f1 - | f_true => True - | f_atom i => varmap_find True i vm - | f_const c => c - end. - -Goal A \/ B -> A /\ (B \/ A) /\ (A \/ ~ B). -intro H. -match goal with - | H : ?a \/ ?b |- _ => quote interp_f in a using (fun x => idtac x; change (x \/ b) in H) -end. -match goal with - |- ?g => quote interp_f [ A ] in g using (fun x => idtac x) -end. -quote interp_f. -Show. -simpl; quote interp_f [ A ]. -Show. -Admitted. |