Lemma isfilter_finite_intersection_htrue : isfilter_finite_intersection → isfilter_htrue. Proof. intros Hand. unfold isfilter_htrue. rewrite <- finite_intersection_htrue. apply Hand. intros m. apply fromempty. generalize (pr2 m). now apply negnatlthn0. Qed.
Require Import UniMath.Foundations.Preamble. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA.