From b68e1e078c2829fb04e4721d13432d0e82a1e0e9 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Fri, 5 May 2023 18:43:12 +0100
Subject: Finish forward and backward proofs for predicated proof

---
 src/common/NonEmpty.v | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/common')

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).
-- 
cgit