Fix warnings.

theories/logic/model.v

@@ -17,6 +17,7 @@ Record lrel Σ := LRel {
 }.
 Arguments LRel {_} _%I {_}.
 Arguments lrel_car {_} _ _ _ : simpl never.
+Declare Scope lrel_scope.
 Bind Scope lrel_scope with lrel.
 Delimit Scope lrel_scope with lrel.
 Existing Instance lrel_persistent.

theories/typing/types.v

@@ -61,6 +61,7 @@ Definition unop_bool_res_type (op : un_op) : option type :=
   | _ => None
   end.
 
+Declare Scope FType_scope.
 Delimit Scope FType_scope with ty.
 Bind Scope FType_scope with type.
 Notation "()" := TUnit : FType_scope.