@@ -70,7 +70,7 @@ Proof. by case: T y x z=>S [[l R A Tr]] ? x y z; apply: (Tr). Qed.
7070
7171End Laws.
7272
73- Hint Resolve poset_refl.
73+ Hint Resolve poset_refl : core .
7474
7575Add Parametric Relation (T : poset) : T (@Poset.leq T)
7676 reflexivity proved by (@poset_refl _)
@@ -399,8 +399,8 @@ Definition sup_closure (T : lattice) (s : Pred T) :=
399399
400400End Lat.
401401
402- Arguments lbot [T] .
403- Arguments sup_closed [T] .
402+ Arguments lbot {T} .
403+ Arguments sup_closed {T} .
404404Arguments sup_closure [T].
405405Prenex Implicits sup_closed sup_closure.
406406
@@ -900,7 +900,7 @@ Notation "[ 'cpo' 'of' T 'for' cT ]" := (@clone T cT _ idfun)
900900Notation "[ 'cpo' 'of' T ]" := (@clone T _ _ id)
901901 (at level 0, format "[ 'cpo' 'of' T ]") : form_scope.
902902
903- Arguments CPO.bot [cT] .
903+ Arguments CPO.bot {cT} .
904904Arguments CPO.lim [cT].
905905Prenex Implicits CPO.lim.
906906Prenex Implicits CPO.bot.
@@ -927,7 +927,7 @@ End CPO.
927927
928928Export CPO.Exports.
929929
930- Hint Resolve botP.
930+ Hint Resolve botP : core .
931931
932932(* common chain constructions *)
933933
@@ -936,7 +936,7 @@ Hint Resolve botP.
936936Section LiftChain.
937937Variable (D : cpo) (s : chain D).
938938
939- Hint Resolve botP.
939+ Hint Resolve botP : core .
940940
941941Lemma lift_chainP : chain_axiom [Pred x : D | x = bot \/ x \In s].
942942Proof .
@@ -1146,7 +1146,7 @@ Qed.
11461146
11471147End AdmissibleClosure.
11481148
1149- Arguments chain_closed [T] .
1149+ Arguments chain_closed {T} .
11501150Prenex Implicits chain_closed.
11511151
11521152(* diagonal of an admissible set of pairs is admissible *)
@@ -1326,7 +1326,7 @@ Export Kleene.Exports.
13261326Lemma id_cont (D : cpo) : continuous (@id D).
13271327Proof . by exists id_mono; move=>d; rewrite id_chainE. Qed .
13281328
1329- Arguments id_cont [D] .
1329+ Arguments id_cont {D} .
13301330Prenex Implicits id_cont.
13311331
13321332Lemma const_cont (D1 D2 : cpo) (y : D2) : continuous (fun x : D1 => y).
@@ -1336,7 +1336,7 @@ exists const_mono; move=>s; apply: poset_asym.
13361336by apply: limM=>_ [x][->].
13371337Qed .
13381338
1339- Arguments const_cont [ D1 D2 y] .
1339+ Arguments const_cont { D1 D2 y} .
13401340Prenex Implicits const_cont.
13411341
13421342Lemma comp_cont (D1 D2 D3 : cpo) (f1 : D2 -> D1) (f2 : D3 -> D2) :
@@ -1355,8 +1355,8 @@ Proof. by exists proj1_mono. Qed.
13551355Lemma proj2_cont (D1 D2 : cpo) : continuous (@snd D1 D2).
13561356Proof . by exists proj2_mono. Qed .
13571357
1358- Arguments proj1_cont [ D1 D2] .
1359- Arguments proj2_cont [ D1 D2] .
1358+ Arguments proj1_cont { D1 D2} .
1359+ Arguments proj2_cont { D1 D2} .
13601360Prenex Implicits proj1_cont proj2_cont.
13611361
13621362Lemma diag_cont (D : cpo) : continuous (fun x : D => (x, x)).
@@ -1365,7 +1365,7 @@ exists diag_mono=>d; apply: poset_asym;
13651365by split=>/=; [rewrite proj1_diagE | rewrite proj2_diagE].
13661366Qed .
13671367
1368- Arguments diag_cont [D] .
1368+ Arguments diag_cont {D} .
13691369Prenex Implicits diag_cont.
13701370
13711371Lemma app_cont A (D : cpo) x : continuous (fun f : A -> D => f x).
0 commit comments