dan/HITs-Examples
1
0
Fork 0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-12-13 22:03:51 +01:00
Code Issues Releases Wiki Activity

Separated lemmas for extensionality for properties, added tactic toHProp

Browse Source
This commit is contained in:
Niels
2017-08-08 13:35:28 +02:00
parent 4ade6e60cc
commit c1dfef3cc1
7 changed files with 108 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
FiniteSets/fsets/length.v
View File

@@ -19,14 +19,16 @@ Section Length.
pose (y' := FSetC_to_FSet y).
exact (if isIn_b a y' then n else (S n)).
- intros. rewrite transport_const. cbn.
simplify_isIn. simpl. reflexivity.
simplify_isIn_b. simpl. reflexivity.
- intros. rewrite transport_const. cbn.
simplify_isIn.
simplify_isIn_b.
destruct (dec (a = b)) as [Hab | Hab].
+ rewrite Hab. simplify_isIn. simpl. reflexivity.
+ rewrite ?L_isIn_b_false; auto. simpl.
destruct (isIn_b a (FSetC_to_FSet x0)), (isIn_b b (FSetC_to_FSet x0)) ; reflexivity.
intro p. contradiction (Hab p^).
+ rewrite Hab. simplify_isIn_b. simpl. reflexivity.
+ rewrite ?L_isIn_b_false; auto.
++ simpl.
destruct (isIn_b a (FSetC_to_FSet x0)), (isIn_b b (FSetC_to_FSet x0))
; reflexivity.
++ intro p. contradiction (Hab p^).
Defined.
Definition length_FSet (x: FSet A) := length (FSet_to_FSetC x).