From 4da92e9d5d9896645909656705f4ab78cdcb029d Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Tue, 30 May 2023 16:16:24 +0100
Subject: Finished painful product proof

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

(limited to 'src/common/NonEmpty.v')

diff --git a/src/common/NonEmpty.v b/src/common/NonEmpty.v
index 7b10ee0..2169306 100644
--- a/src/common/NonEmpty.v
+++ b/src/common/NonEmpty.v
@@ -112,7 +112,7 @@ Proof.
     apply IHl in X2. inv X2.
     left. constructor; tauto.
     right. unfold not in *; intros. apply H0. inv H1. now inv H3. }
-Qed.
+Defined.
 
 Fixpoint filter {A: Type} (f: A -> bool) (l: non_empty A) : option (non_empty A) :=
   match l with
@@ -176,7 +176,7 @@ Proof.
   - assert (n1 <> n2); unfold not; intros.
     apply Bool.not_true_iff_false in H. apply H.
     apply eqb_complete; auto. tauto.
-Qed.
+Defined.
 
 Inductive Forall {A : Type} (P : A -> Prop) : non_empty A -> Prop :=
 | Forall_singleton a : P a -> Forall P (singleton a)
-- 
cgit