File: nostutter.v

package info (click to toggle)
coq-quickchick 2.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 2,432 kB
  • sloc: ml: 4,367; ansic: 789; makefile: 388; sh: 27; python: 4; lisp: 2; perl: 2
file content (12 lines) | stat: -rw-r--r-- 430 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
From QuickChick Require Import QuickChick.

Derive EnumSizedSuchThat for (fun n => eq x n).

Inductive nostutter {X:Type} : list X -> Prop :=
  | nostutter0: nostutter nil
  | nostutter1 n : nostutter (n::nil)
  | nostutter2 a b r :  a <> b -> nostutter (b::r) -> nostutter (a::b::r).

Derive DecOpt for (nostutter l).
Derive EnumSizedSuchThat for (fun l => nostutter l).
Derive ArbitrarySizedSuchThat for (fun l => nostutter l).