dan
/
HITs-Examples
mirror of https://github.com/nmvdw/HITs-Examples
1
0
Fork 0
Code Issues Releases Wiki Activity

tfw importin the middle of the file

This commit is contained in:
Dan Frumin 2017-08-24 18:52:43 +02:00
parent b17a726608
commit e8560a0c07
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
FiniteSets/variations/b_finite.v
View File

@ -1,7 +1,7 @@
(* Bishop-finiteness is that "default" notion of finiteness in the HoTT library *) (* Bishop-finiteness is that "default" notion of finiteness in the HoTT library *)
Require Import HoTT HitTactics plumbing. Require Import HoTT HitTactics plumbing.
Require Import Sub notation variations.k_finite. Require Import Sub notation variations.k_finite.
Require Import fsets.properties. Require Import fsets.properties fsets.monad.
Section finite_hott. Section finite_hott.
Variable (A : Type). Variable (A : Type).
@ -322,7 +322,6 @@ Section bfin_kfin.
apply Kf_unfold in IH. apply Kf_unfold in IH.
destruct IH as [X HX]. destruct IH as [X HX].
apply Kf_unfold. apply Kf_unfold.
Require Import fsets.monad.
exists ((ffmap inl X) ∪ {|inr tt|}); simpl. exists ((ffmap inl X) ∪ {|inr tt|}); simpl.
intros [a | []]; apply tr. intros [a | []]; apply tr.
+ left. + left.