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:
@@ -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)).
|
||||
|
||||
Reference in New Issue
Block a user