1
0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-11-04 07:33:51 +01:00

Update the code to match the latest HoTT

HoTT commit 3526c344c47d32f5d4d268658031777239ec952b
This commit is contained in:
2017-11-06 15:25:56 +01:00
parent 55136b24e7
commit 8ce4cb760a
10 changed files with 31 additions and 328 deletions

View File

@@ -51,7 +51,7 @@ Section ListToSet.
induction l ; unfold member in * ; simpl in *.
- reflexivity.
- rewrite IHl.
unfold hor, merely, lor.
unfold hor, merely.
apply path_iff_hprop ; intros z ; strip_truncations ; destruct z as [z1 | z2].
* apply (tr (inl (tr z1))).
* apply (tr (inr z2)).