diff options
Diffstat (limited to 'src/common/NonEmpty.v')
| -rw-r--r-- | src/common/NonEmpty.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/common/NonEmpty.v b/src/common/NonEmpty.v index 0e57cfa..762053a 100644 --- a/src/common/NonEmpty.v +++ b/src/common/NonEmpty.v @@ -204,3 +204,8 @@ Proof. + symmetry in e. destruct (a1 == a); easy. + destruct (a1 == a); try easy. now symmetry in e. Qed. + +Inductive norepet {A : Type} : non_empty A -> Prop := +| norepet_singleton a : norepet (singleton a) +| list_norepet_cons hd tl : + ~ In hd tl -> norepet tl -> norepet (hd ::| tl). |