From Corelib equire ssrbool
From Corelib RequireImport ListDef deduplicate:}eqt X>bool l list X:list:=match
{X: Typeeqt -X- bool(: list (: X) bool := true
Fixpoint deduplicate {X: Type} (eqt: X -> X -
| nil => nil
| x :: xs => let deduplicatedRest := deduplicate eqt xs in if (contains eqt deduplicatedRest x) then deduplicatedRest else x :: deduplicatedRest end.
Theorem deduplicate_idempotent: forall {X: Type} (eqt: X -> X -> bool) (l: list X), deduplicate eqt (deduplicate eqt l) = deduplicate eqt l. Proof.
move => ? eqt. elim => [|x xs IHxs] => //. simpl.
case H: eqt. Abort.
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.0.6Bemerkung:
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.