Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit ad328bd5 authored by Martin Clochard's avatar Martin Clochard
Browse files

(coq) add WhyType instance for arrow

parent 032b546b
Require Export ZArith.
Require Export Rbase.
Require Import ClassicalEpsilon.
Class WhyType T := {
why_inhabitant : T ;
why_decidable_eq : forall x y : T, { x = y } + { x <> y }
......@@ -58,3 +60,12 @@ split.
exact false.
exact Bool.bool_dec.
Qed.
Global Instance func_WhyType : forall (a:Type) {a_WT:WhyType a} (b:Type) {b_WT:WhyType b}, WhyType (a -> b).
Proof.
intros.
repeat split.
exact (fun _ => why_inhabitant).
intros x y.
apply excluded_middle_informative.
Qed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment