diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-30 16:16:24 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-30 16:16:24 +0100 |
commit | 4da92e9d5d9896645909656705f4ab78cdcb029d (patch) | |
tree | a81493e735d4e63b8c8e01a938ce15f25fcc2b70 /src/common/NonEmpty.v | |
parent | c10635f9e6890a6171c5c1cc8eb6e3298d2006b1 (diff) | |
download | vericert-4da92e9d5d9896645909656705f4ab78cdcb029d.tar.gz vericert-4da92e9d5d9896645909656705f4ab78cdcb029d.zip |
Finished painful product proof
Diffstat (limited to 'src/common/NonEmpty.v')
-rw-r--r-- | src/common/NonEmpty.v | 4 |
1 files changed, 2 insertions, 2 deletions
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) |