?t q?? x ?st ????ss???? s? ?t s???????t s? t??s ??s ????ts ???s ??t?ts q?? ??? ?? s??t? ?t ???? s???tér?ss? à ?? ???s ??t?t? r???t??? ?ér????t, )(R y x) ? (P y)) ? (P x)? ,
(R y x)](????r?? y (f y h))) end } ??tt? ?r???èr? ?é???t?, )) ?? ? ???? (f y h) : < z (??? y)? ,
??? y)]f end ???s ?? ???t??t? x ? ? A? p ? =z (??? x)? ?? t?r?? ???t êtr? ???tr???t ?? ?? ????èr? s?????t?? Case p of ?????? ? [f : < z (y : A)(R y x) ? (??? y)]f end, ? A)(p : =z (??? x))(y : ? A)(R y x) ? (??? y ,
(????r?? y (??????t x z y h)))} ?????té ?é????t?, ???r q?? ???r?????t ??????ss?????té ???t êtr? ???s t??t ?? ??r???t ?? ??ss?????té ?? ???????r ????r?? q?? ????r?ît ???rs ????? ?? ????t ??? ?é?ér??? Fix{????r?? ? (x : A)(P x) := ????r?? ? [x : A](F x [y : A][h : (R y x)](????r?? y))} ,
= ?} ? f ?? ? ? ? f {Fix{? := ?}} ???s ??tt? rè??? ?étr??t s??s ???str??t??r? s? x : ? ???rs Case x of [] end : (P x) ???r t??t P : ? ? s? P??r ??? ?é???r?t??? ?????t??? ? ???? ?? s??? ???str??t??r Case x of f end : (P x) s? f ?st ?? t??? Q(Ind{?} ? c) ???rs ??s s???t???s P = [x]Q(x) ?t P = [x]Q(Ind{?} ? c) s??t ??ss????s? ?? ??tr? ??????? ?st q?? s? h ?st ??? ?r???? ?? (eq t u) ???rs ?? t??? ?? Case h of r?? ? f end ?st é??? à (P u h) s? f ? ???r t??? (P t (r?? t))? ?? ?? t??? ?? f ?st C ???rs ?? ?st ?é??ss??r? ?? tr????r P t?? q?? C ? (P t h) ???s ??s ??s ?ù ???????? ???t s? ?é???r? ??sé???t à ??rt?r ??s ??tr?s ????r??t???s ?? t????? q?? ??????t êtr? ???éré?s? ??? ?é???t???s ?????t???s ?t ???s ????? ?é???t???s ???????s ???s ??q ????? ??s ?é???t???s ?????t???s ét????t ??????té?s ????? ??s ????ts ???????s? ??s ???s q?? ????r??ss????t ???s ?? s?é?????t??? ét????t ?t???sés ???r ??tr????r? ??s ???st??t?s ?r?????r?s r??rés??t??t ??s ??ré???t???s? ???sts? q?? s? ???t ?? r??rés??t?t??? ??s ????ts ?????t??s ???s ??q ????? ??tt? ?rés??t?t??? ?? ?ss?? ??t?r???????t ?? ???r ???? ??? ??s??? ?é?ér?t??? ??s t???s ?????t??s ?? ??é????té ??tr? ???? t???s ?????t??s ?st ??é????té ??s ?é???r?t???s? é????té ???s s????? ?éq????????? à ??? ?rêt ??s ?é???t???s ?????t???s ??????t é???????t êtr? s????????t ????t?é??? ?? s? tr???? q?? ?? ??s??? ?é?t ???s s????? ?? ??é????té ???sq???? ???st ??s ?é??ss??r? ?? ??r???r?r ?? str??t?r? ?? ?? ?é???? r?t???? ?? ???s ????? ???s ??tr????s ??s ?r??r????s ??rs ??s ???????s ?? q?? ??t ?? s?stè?? ?? t??? ?é?ér?t??? ????tr??t??? ?st é???????t s??????é? ???? ??tt? ????t?ès?? ?? ?r?t?q?? ?? ?????é?ér?t???té ???st ??s ?ér?t???????t ?t???sé??, ) ?t s? ré???t ?? ?? ?????? ??r?é ???? ????t y ?t ????? ?r???? ?? Q(x, y)? ???st ???? ?? ?r??r???? ??rr??t ??r r????rt à ?? s?é?????t??? ????tré? P ?t ?? r???t??? ?? s?rt?? Q? ????????t ? ?r??r? ??????r??t??? ?? ?? ??rr??t??? ????tré? ??r???? ?? P (x)? ?t ?? ?? ??rr??t??? ?? ?? s?rt?? ??r???? ?? Q(x, y)? s??t é???????t ??????é?s ??r ?? ?r??r????? ??tt? ?ét???? ???st ???? ??s s??s??t? s? ?? q?? ???? ?tt??? ?st ??? ????t??? f q?? tr??s??r?? ????tré? x ?? ??? s?rt?? y ?t t???? q?? s? P (x) ?st ?r?? ???rs Q(x, f (x)) ,
s?r à P (x) ?t Q(x, y) ??êtr? ??s ??r????s s??s ???t??? ???????t??r?? ???st? à???r? q?? ???r ?r???? ,
?s s??s ???t??? ???????t??r?? ???s ?? ??r????s?? ???r?r? s??ér???r ???? ??s ??r?????s ?? t???? ???ttr???t ?? ???t??? ???????t??r? ???t êtr? s?é???é s?r ??s ??r?????s? ???? s? ???t ??r ?? ???????t??? ?? ?? s?rt? ???ré????t??? ??t ?? Pr?? ?t ??t? ?? ?é????t???s ?????t???s ???s ??q ?? M ,
?? ré???s?????té q?? ??t été ??tr????t?s ???s ???? ??? ?t q?? s??t ??????té?s ???s ??q ?t???s??t ?? ???t q?? t??t ??t?r?? ??rr??t????t t??é ???s ?? ?????? ??s ???str??t???s ?st é???????t t??é ???? t??? ???s ??q??? ?? ? ?????é ??s ?é????????s? ?? rés??t?t s?ét??? ??? ?é???t???s ?????t???s t??t q?? ??s ?é???t???s s??t ??s ré???s?t???s ré??rs???s ???q?????t s?r ?? s?rt? ??t? ?? ???t s? ?? ré???s?t??? ?st s????????t ??tr??t? s?r ?? s?rt? ,
?? ??s ??s ?é???t???s s?r ??s s?rt?s ???ér??t?s ?? ???t s? ???????r q??? ?st ?? s??s ?? ?é???t???s s?r ??s s?rt?s ???ér??t?s? ?? ???t ?? t????s ?é???t???s ?? s??t ??s ????r? ????r??s ???s ??s ?é??? ,
? 3 )? ?? ?ér????t q?? ??s ?????t???s ?? ??s?t???té ??????t??????t str??t?s? s??t t?????rs ?ér??é?s ???r ?? ???t??t? ?? ?é???t???s ? ét???? ??r ??s ?r?tés ?? (? 3 )?? ?? r??????? ???s M ?????r?ss??? (Ind{?} ? Y ?) ??r (Y ? ? 3 ?) q?? ?ér??? ?? ?????t??? ?? ??s?t???té str??t? ?t ?? ???t???? ??sq??à ?? q?? M s??t str??t????t ??s?t??? ?? ?st ????r q?? ?? ?r???ss?s s??rrêt? ??r ?? ????r? ?? s??????s ???s ?? ??st? à tr??t?r ,
??t??r ??é??????t??? ré??rs??? ??tr????t ???s ?? ??r??r???? ???? ??? ??t??t??? ?t ???????s P??r ?? ??s ?????r ??s ??é?s ?ss??t?????s ??rr?èr?, str??t??r ???rs ???r t??t ?r?????t ré??rs?? a ?? ?? ???str??t??r? s? a ? ???r t??? I ?? ????r??t ??r? q??? (?)X ?t ???r?r? I < ?ér??? (?)(?)(I < (y ? ? ) (Ind{?} ? c ? ? )) ,
(I < t t)? ?st??? q?? ???? ???t ??r? q?? ???s ??????s é?r?r? ??s ?é???t???s ré??rs???s q?? ???s ?? ??s ?ré?é???t ??rsq???? r???r???t ???r?????t y ré??rs?? ?? t?r?? t? ?? t??? ?? ???????? ??????t ?é????r? ??s ??tr?s ?r?????ts ?? ???str??t??r? ?? ?? ?? ???s ??r? q?? t??t?s ??s ??st????s ?? y s??t ???s ??t?t?s q?? t ???s s???????, ??t)(z : (A : ??t)A ? I)(a : A)(I < (z A a) (c A (z A))) ,
??s q?? ??s ?é???t???s ré??rs???s ??rr??t?s s??t ??s ??s ??rt??????rs ?? ?é???t???s ré??rs???s ?é?r??ss??t?s ???r ??t ?r?r?? ??? Pr???? ??????ss?????té ???s r??r????s ?? ?é???t??? ??????ss?????té ??tr????t? ???s, x : I] < ???>Match x with ? end ? ???t êtr? ?? t??? ???[? X ] r {Ind{?}}? ???t c ? (?)X ? ? X ???s ?????s ???str??r? ? ? c ????? ét??t é??? à [?{I}][???[?] r ](?????? (Ind{?} ? c ? ? ) [y : I][h : (I < y (Ind{?} ? c ? ? ))]P ) ,
X? ? 3 )? ?t ???r t??t ? 2 t?? q?? y = (z ? ? 2 )?)(I < (t ? ? ) z) ? (t ? ? ) = z? ??? ?? ??s ?é?ér?? ?? tr??t? ?? ??s ?é?ér?? ??s ?é???t???s ??t????????t ré??rs???s ?? s? r??????t à ??? ?é???t??? ?????t??? s????? ????r? I ??r??étré? ??r A : ????? ?? ?é???t ???rs ???r?r? s?r ?a : A.(I a), ??? (z ? ? 2 ) q???? ?st s??s? ,
????? ?? ??r????? ?st ???str??t ?? ?t???s??t ??? s?rt? ? q?? ???rr? êtr? ?r?s? é???? à ??t ?? ???? s?????t ??s ???????s? ?? ?é???t ?? ?t???s??t ??? q???t????t??? ?? s????? ?r?r? s?r ?? s?rt? ??t ??s ??t???s ??é????té? ?? ???????t??? ?t ?? q???t????t??? ???st??t????? s?r ?? t??? A ???s ?? s?rt? ??, )) ? C (x = y) def = (P : A ? ??t)(P x) ? (P y ,
(v ? v ? ??t) ? I t??s q?? ???r t??s X ?t Y ?? t??? ?? A : X ? ??t? B : Y ? ??t ?t ???? r???t???s R : X ? X ? ??t ?t S : Y ? Y ? ??t ?? ??t ? ??? Pr??r?étés ??s ?????t??s ?? ??q s? (i X A R) = (i Y B S) ?st ?r??????? ???rs ?? r???t??? R ?st ?????s? ???s ?? r???t?, ???? R S) s? ?f : X ? X.(x : X)(A x) ? (B (f x)) ? (x, y : A)(A x) ? (A y) ? (R x y) ? (S (f x) ,
(x) ?? t??? ??t ??rsq?? A : ???? ?t B : ??t? ?? ????t ?? ?? t??? ?st ???str??t à ??rt?r ?? a : A ?t b : B(a) ?t ???t êtr? ?éstr??t?ré s?????t ??s, A ? ??t]Ind{S ? ??t? ???r : (a : A)(P a) ? S} ,
? ??t) ? ??t][x : A]Case x of f end q?? ?ér??? ??é????té?str??r? q?? ??s ????ts s?r ?? s?rt? ??t ???r ?? ??s ?r???q??r ?? ??r?????? P??r ??s t???s ?????t??s ?? s?rt? ????? ?? ?????t??? ?? t????? ?ss?r? q?? s???s ??s t???s ?ré????t??s s??t ???? ??r?és? ?? ?st ??t?r?? ?? s? ???????r s? ?? r?????? ,
x : L Case x of F end : C ?t Case (??? f ) of F end ?? ? (F f )? ???rs ,
???s U ? ??? ??tr? ???séq????? ?? ??s ???? ?r??r?étés ?st q???? ?st ??ss???? ???ss????r à t??t ????t A ?? t??? ??t? ?? ????é?? q?? ?st é??? à tr?? ??rsq?? A ?st ???tr???? ?t à ???s? ??rsq?? ¬A ?st ?r, ?r ??sq???s ?? ???st? c : U ? ???? t??s q?? u = (i c) ?t (c u) = ???s?? ?? ?ss???? à R ??? ????t??? ????é???? T : U ? ???? q?? ????r? tr?? ??rt??t ?ù R ?st ???tr????? ???st?à???r? q?? ? (x : U )(R x) ? (T x) = tr?? (x : U )¬(R x) ? (T x) = ???s? ?? ???t ???s??ér?r ??????t (i T ) ?? t??? U ? ?? ? ??r ?é???t??? ?? R ?t ?? ?t???s??t ???????t???té ?? i ? (R (i T )) ? (T (i T )) = ???s? (T (i T )) = ???s? ? (R (i T )) ,
?s ??é????té ?? t??t?s ??s ?r????s? P?r ???tr? ?ès q?? ?? ?r?????? ?st ????té ???r ??s s??é??s ???s ?é?ér??? ????? ????? ?? ?? s????? ??????t ?? t??rs?????? ???t q?? t??t?s ??s ?r????s s??t ????t??é?s ?? q?? r?t?r? t??t ??térêt à ????t?r?rét?t??? ??s ?r????sX : Pr??)(x, y : X)(x = y) ???t êtr????t? q?? s?r ??s t???s ?? ????é?s ???é?r?q??s ???s ???? ??s? ?? ?r???è?? ???r ??s t???s ??????r???s q?? ??????t s???st?????r ?? ??s t???s ???é?r?q??s ???s ??ss? ???s ??s t???s ???r ??sq???s ??é??????t??? ?é??????t? ??s? ?r???è??? ?? ?st ??????? ?? ?r???r ? ?r??r? ????t?r?rét?t??? s??s??????t? ??s ?r????s, ?)??t ?? ???rr? ?? ré???s?r ???ss?q?????t ?? ????t??t ?? ???str??t??r ???ss??P : (?)¬¬(P ? ? ) ? (P ? ? )? ,
???r?r? s??ér???r? ??s ?é???t???s ?????t???s s? ??????t ?? r?st?r ???s ??tt? ?????? ???s ????s ???tré q?? ??s ??????s ???ré????t??s? s?t?s???s??ts ???s ?? ??s ?? t?é?r??s ??t??s????????s t????s q?? ?? ????q?? ???r?r? s??ér???r ?? ???r?? ?? ?? t?é?r?? ??s ??s?????s? ?? s??t ??s s??s??ts ???s ?? ??s ?? ??q? ???s ????s ????t??é ??s ?r??r?étés ?tt?????s? ??? ??r????s?? ??t?r?é????r? ???s ????s ?r???sé ?? ??r????s?? ???r ét???r? ?? ?????? ???t??? ???? ??s ???str??t???s ?r???t???s ??r??tt??t ????t???r ??? r??rés??t?t??? ??s ?é???t???s ?????t???s ????t ,
??st X) ?? ??s??t ??s ?? ?r???è?? t?é?r?q??? ?? tr??s??r??t??? ?? t????s ?é???t???s ??rs ??s ?é???t???s ??t?????s ???rr??t t??t? à????t êtr? ,
?ôté? ?t ?? ????tr? ??s ???????s ??str??t?s ??rs ??sq?????s ??s ???????s s??t ??????és? ??s ??????tés s????é???t??r?s ???s ?? ??s ??s s?stè??s ?? ?r????s s ,
t?r ??s ?é???t???s ?????t???s ?t q?? s? ?rêt? à ??? ét??? ?ét??t?é?r?q?? s?s???t???? ??êtr? ?é????sé? ???r ????t?r à ?? ?ér????t??r ?? ?r???? ??rt??é? ,
????s ????q??s q?? ??r??tt??t ????t?r????s?r ?? ???t??? ???????t??r? ??s ?r????s ?t ??s ?r??????s ?? ????q?? ???ss?q??? ?????r ??t??t q?? ??ss???? ???r? ?????st?r ??s ???? ?????s ?? ????èr? ??r??????s? ?st ?? ??s ?????? ??s ?é???str?t??rs r???s??t s?r ?? t?é?r?? ??s t???s s???s ??????t ???t????r à t?r?r ??rt?? ?? ???s???t ???????t??r? ??s ?r????s ??t??t?????st?s s??s s? ??r??r ?? ??ss?????té ???t???s?r ??s r?????r??s ?? r??s ,